Дан целочисленный массив из 30 элементов, которые могут принимать значения от 0 до 100 –...

Question

Дан целочисленный массив из 30 элементов, которые могут принимать значения от 0 до 100 – баллы учащихся за итоговый тест по информатике. Напишите программу, которая подсчитывает средний балл класса и выводит на экран номера учеников, набравших баллов больше среднего.

Answer 1

uses crt;
var i,sum:integer; avg:real;
students:array[1..30] of integer;
begin
randomize;
for i:=1 to 30 do students[i]:=random(100)+0;
for i:=1 to 30 do sum:=sum+students[i];
avg:=sum/30;
writeln('sredniy bal = ',avg:0:2);
writeln;
for i:=1 to 30 do begin
if students[i]>avg then
writeln(' Student ¹ ',i,' nabral = ',students[i],' balov');
end;
readln;

end.