Программирование Pascal: Массив необходимо заполнить вводом с клавиатуры.Дан целочисленный
Программирование Pascal:
Массив нужно заполнить вводом с клавиатуры.
Дан целочисленный массив из 30 частей. Элементы массива могут принимать целые значения от 0 до 100 баллы учащихся выпускного класса, приобретенные на экзамене по информатике. Напишите программку, которая дозволяет отыскать и вывести количество учащихся, чьи баллы на экзамене выше среднего балла по классу.
Ответ:
Изъяснение:
var
a:array [1..30] of integer;
i,s:integer;
r:real;
begin
writeln('Введите оценки учащихся(значения от 0 до 100)');
s:=0;
for i:=1 to 30 do
begin
readln(a[i]);
s:=s+a[i];
end;
r:=s/30;
writeln('средний бал=',r:4:2);
s:=0;
for i:=1 to 30 do
if a[i]gt;r then s:=s+1;
writeln('Количество учащихся с оценками выше среднего=',s);
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Химия.
Русский язык.
Геометрия.
Физика.
Русский язык.
Химия.
Математика.
География.
Литература.
Разные вопросы.