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

Program z;var i,sum:integer;sr:real;a:array[1..22] of integer;beginfor i:=1 to 22 dobegin a[i]:=random(9)+1;sr:=sr+a[i];end;sr:=sr/22;for i:=1 to 22 dobeginif (a[i]<sr) thensum:=sum+1;writeln(a[i]);end;writeln(sum);end.