В массиве записаны оценки по информатике 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;beginn:=0; s:=0;for i:=1 to 22 do begina[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 doif a[i]<sr then beginn:=n+1;write(\'i=\', i, \' \');end;writeln;write(\'n=\', n);end.