1 КБ = 1024 байт
1,5 КБ = 1536 байт
2048 байт = 2 КБ
2 МБ = 2048 КБ
81920 бит = 10 КБ
1,5 МБ = 1 572 864 байт
Var a:array[1..20] of real;
var out:real;
var i:integer;
begin
out:=0;
for i:=1 to 20 do
begin
a[i]:=random();
if abs(out)<abs(a[i])
then out := a[i];
end;
write(out);
end.
1. Цикл выполнится 6 раз
2. Здесь наверное не s:=s+1, а <span>s:=s+i
s:=285
3. Шаг цикла равен -1.</span>
Решение задач - в прилагаемом файле. Решение приводится, что называется, "в лоб", то есть без оптимизации (такого в условиях нет). Это в первую очередь, относится к 1 задаче, хотя и остальные можно улучшить, если потребуется.