7,2 секунды
9 кбайт(1024x9)получаем кол-во в байтах=9216
делим на 36 секунд получаем 256 байт +1024
на 1280 байт,и теперь делим 9216 на 1280 получаем 7,2 секунды
Можно взять гласные: а,е,ё,и,о,у,э,ю,я
Var
N:integer;
A,max,min:real;
Begin
Write('N = ');ReadLn(N);
WriteLn('Введите числа');
Read(A);
max:=A;
min:=A;
For N:= 2 to N do
Begin
Read(A);
if A>max then max:=A;
if A<min then min:=A;
End;
WriteLn('Max = ',max);
WriteLn('Min = ',min);
End.
Скорее всего ты не дописал условие:
10100111₂=167
А9₁₆=169
Число между ними 168