В массиве записаны оценки по информатике 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]
n:=n+1;

write ('i=', i, ' ');

end;

writeln;

write ('n=', n);

end.