Массив
Одномерный, список
Сортируем, Находим, Восхищаемся
Когда потребуется мноого переменных сохранить я позову тебя!
Массив!
6Мб=6*2^23 бита
6*2^23/24=1/4*2^23=2^-2*2^23=2^21=2097152 точек
Var b,c:real;
<span>begin </span>
<span>b:=1; </span>
<span>c:=2; </span>
<span>repeat </span>
<span>b:=b+1; </span>
<span>c:=c*b; </span>
<span>until b=4; </span>
<span>writeln('Да'); </span>
<span>end. </span>
Var
n,b,i,k,r:integer;
begin
readln(n);
for i:=1 to n do
begin
readln(b);
if b>=8 then
begin
k:=k+1;
r:=r+b;
end;
end;
writeln('Количество сдавших:',k);
writeln('Среднее значение:',r/k);
end.