Лично мне привычно писать и с mod, и с odd, хотя на разных сайтах я действительно встречала MOD чаще. MOD - оператор, выполняющий деление двух чисел и возвращающий целочисленный остаток. Odd проверяет выражение на нечетность. Когда мы начинали изучать Паскаль, нам говорили только про mod, хотя сейчас odd мне кажется удобней. Так что, возможно, это просто неизвестно решающим, не пробовавшим копнуть глубже в информатику.)
var mas:array[0..9] of integer;
i,max,min,k:integer;
arifm:real;
begin
k:=0;
arifm:=0;
Randomize;
for i:=0 to 9 do
mas[i]:=Random(15);
for i:=0 to 9 do
write(mas[i],' ');
{poisk max}
max:=mas[0];
for i:=1 to 9 do
if max<mas[i] then
max:=mas[i];
{poisk min}
min:=mas[0];
for i:=1 to 9 do
if min>mas[i] then
min:=mas[i];
arifm:=(max+min)/2;
writeln('max: ',max);
writeln('min: ',min);
writeln('arifm: ',arifm:0:3);
for i:=0 to 9 do
if mas[i]<arifm then
inc(k);
writeln('k: ',k);
readln;
end.
I =8 бит = 1 байт
I= 9 Кбайт = 9216 байт
k= 48*х*6 = 288*х
I=k*i
9216=288*x*1
x=9216/288=32
Ответ: 32 строки
Три варианта, выбирайте, что вам больше по нраву