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

Question

Информатика

Васиилла

3 октября, 04:21

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

+4

Ответы (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.