Question

В массиве записаны оценки по информатике 22 учеников класса. Определить кол-во учеников, оценка которых меньше средней оценки по классу, и вывести номера элементов массива, соответствующих этим ученика.

Answer 1

Program z;
var i,sum:integer;
sr:real;
a:array[1..22] of integer;
begin
for i:=1 to 22 do
begin
a[i]:=random(9)+1;
sr:=sr+a[i];
end;
sr:=sr/22;
for i:=1 to 22 do
begin
if (a[i]<sr) then
sum:=sum+1;
writeln(a[i]);
end;
writeln(sum);
end.