7*36*50=12600 - всего символов
2^i=64 => i=6 бит - занимает один символ
12600/6=75600 бит = 9450 байт - объем сообщения
Бит принят за единицу измерения
начало
a=1,b=1
если a<1000,
тогда
a++; b = b + a; вернуться к условию,
иначе
вывод b
конец
uses crt;
var a:array[1..100] of real;
i,n,ind:integer; min,min2:real;
begin
clrscr;
write('n='); read(n);
writeln('massiv:');
for i:=1 to n do
read(a[i]);
min:=a[1];
min2:=a[1];
for i:=1 to n do
begin
if a[i]<min then
begin
min:=a[i];
ind:=i;
end;
end;
for i:=1 to n do
begin
if (i<>ind) then if (a[i]<min2) then min2:=a[i];
end;
write(min,' ',min2);
end.