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

Решение. Введем следующие обозначения: а - массив из 22 элементов (формировать его будем случайными целыми числами из промежутка [1; 5]); i - порядковый номер элементов массива; a[i] - значения элементов массива (отметки учащихся); sr – средняя отметка по классу; n - количество учащихся, у которых отметка ниже средней по классу. Будем использовать оператор цикла с параметром for. Тогда программа на языке программирования Pascal ABC может выглядеть так:

program zadacha;
uses crt;
var i, n, s: integer;
sr: real;
a: array[1..22] of integer;
begin
n:=0; s:=0;
for i:=1 to 22 do begin
a[i]:=random(5-1+1)+1;
write(a[i], ' ');
s:=s+a[i];
end;
writeln;
sr:=s/22; writeln('sr=', sr:2:2);
for i:=1 to 22 do
if a[i]<sr then begin
n:=n+1;
write('i=', i, ' ');
end;
writeln;
write('n=', n);
end.