В массиве записаны оценки по информатике 22 учеников класса. Найти кол-во

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

Задать свой вопрос
Данька Леонов
какой язык?
Наташа Хваталь
паскаль
Ангела
на данный момент напишу
Борис Страшун
ок, спасибо огромное
Диана Сагалтдинова
всегда пожалуйста
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]lt;sr) then
sum:=sum+1;
writeln(a[i]);
end;
writeln(sum);
end.


, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт