1) const f0=1; fk=10; h=0.5; var f:real; i:integer; begin f:=f0-h; writeln('Фунты Кг'); for i:=1 to round((fk-f0)/h)+1 do begin f:=f+h; writeln(f:4:1,f*0.4:7:3); end; end.
2) const f0=1; fk=10; h=0.5; var f:real; begin f:=f0-h; writeln('Фунты Кг'); while f<fk do begin f:=f+h; writeln(f:4:1,f*0.4:7:3); end; end.
3) const f0=1; fk=10; h=0.5; var f:real; begin f:=f0-h; writeln('Фунты Кг'); repeat f:=f+h; writeln(f:4:1,f*0.4:7:3); until f>=fk; end.
// Внимание! Если программа не работает, обновите версию!
№1
begin
var a:=ArrGen(20,i->i+1); a.Println;
end.
Пример
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
№2
begin
var a:=ArrRandom(20,-99,99); a.Println;
Writeln('П = ',a.Aggregate(BigInteger(1),(x,y)->x*y))
end.
Пример
92 6 39 -33 34 -22 -97 52 58 55 -42 -59 -15 -19 -91 76 -69 82 -19 -69
П = -309778851231495493804367495884800
№3
begin
var a:=ArrRandom(40,-99,99); a.Println;
Writeln('Номер максимального элемента = ',a.IndexMax+1)
end.
Пример
-30 85 -57 -5 -64 20 48 83 19 -32 -56 10 21 83 78 20 89 -5 71 -78 -59 88 -10 -94 -80 -58 24 37 -1 66 -71 -9 43 55 -14 -79 -33 -19 -34 68
Номер максимального элемента = 17