В классе 15 учеников. Составьте программу, которая определяет количество учеников, чей вес не превышает среднего. Вес должен задаваться случайными числами в диапазоне от 35 до 60.
Напишите программу в текстовом документе, либо в программе Pascal ABC и прикрепите файл.

Ответ:

program num;

Var a:array [1..40] of integer;

j, s, k, n :integer;

sr:real;

begin

writeln('Введите количество учеников в классе');

readln(n);

writeln('Введите рост учеников');

for j:=1 to n do

begin

readln(a[j]);

end;

s:=0;

for j:=1 to n do

s:=s+a[j];

sr:=s/n;

k:=0;

for j:=1 to n do

if a[j]> sr then k:=k+1 ;

writeln('Количество учеников в классе, чей рост превышает средний= ', k);

end.

Объяснение: