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

Question

Информатика

Мартин

14 февраля, 02:29

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

+3

Ответы (1)

Знаете ответ?

Петяша · 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]
sum:=sum+1;

writeln (a[i]) ;

end;

writeln (sum) ;

end.