192 Кбайт=196608 байт
256 бит=32 байт
1)196608/32=6144 секунды
2)6144*96=589824 бит/8=73728 байт/1024=72 Кбайта
Var
i,min,max:integer;
a:array[1..70]of integer;
begin
for i:=1 to 70 do
begin
a[i]:=random(100);
write(a[i],' ');
if i=1 then min:=a[i]
else if a[i]<min then min:=a[i];
if a[i]>max then max:=a[i];
end;
writeln;
writeln('Ответ: ',max-min);
<span>end.</span>
Идут дожди
В следующий раз нормально пробелы ставь