Question

Программирование Pascal:
Массив нужно заполнить вводом с клавиатуры.

Дан целочисленный массив из 30 элементов. Элементы массива могут принимать целые значения от 0 до 100 – баллы учащихся выпускного класса, полученные на экзамене по информатике. Напишите программу, которая позволяет найти и вывести количество учащихся, чьи баллы на экзамене выше среднего балла по классу.

Answer 1

Ответ:

Объяснение:

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]>r then s:=s+1;

writeln('Количество учащихся с оценками выше среднего=',s);

end.