var
i, n:integer;
price:real;
begin
n := 20;
price := 20.4;
for i := 1 to n do
writeln('Стоимость ', i:3, ' ед. товара составляет ', price * i:8:2, ' руб.');
end.
//вторая задача
var
i, f, n:integer;
begin
f := 453;
n := 10;
writeln('фунты граммы');
for i := 1 to n do
writeln(' ', i:2, i * f :11);
end.
//третья задача
var
i, n:integer;
k:real;
begin
n := 20;
writeln('Введите курс '); readln(k);
writeln('доллары рубли');
for i := 1 to n do
writeln(' ', i:2, i * k:13:2);
end.
beginrandomize;sum:=-1;for i:=1 to 10 dobegin tmp:=0; for j:=1 to 10 do begin a[i,j]:=random(10); tmp:= tmp + a[i,j]; write(a[i,j],' '); end; if ( sum < tmp ) then begin sum:=tmp; index:=i; end; write(' SUM [',tmp,']'); writeln;end; writeln(index);
end.