Program BP_Sasde;
Uses crt;
Var a:array[1..20] Of integer;
imax,imin,i:integer;
begin
Clrscr;
imin:=20;imax:=0;
for i:=1 to 20 do begin
a[i]:=random(1,20);
if a[i]>imax then imax:=a[i] else imin:=a[i];
writeln(a[i]);
end;
writeln('максимум = ',imax,' а минимум = ',imin);
end.
На 1 символ надо log(2)128=7 бит;
<span>на 600 символов 600*7 бит = 600*7 / 8 байт = 525 байт = 525 / 1024 Кбайт = 0,5126953125 Кбайт</span>