Var
ar:array[1..10] of integer;
k,i,n:integer;
begin
readln(k);
for i:=1 to 10 do
begin;
readln(ar[i]);
if ar[i]>k then n:=n+1;
end;
writeln('Array:');
for i:=1 to 10 do write(ar[i]:4);
writeln;
write('Res:',n);
end.<span> </span>
1-1, 2, 3, 4, 5, 6. 2-6,7,8 и до бесконечности
1 байт = 8 бит
32 Мбит /8 = 4Мбайт
4*60сек*15мин=3600Мбайт=3.51Гбайт