В классе 15 учеников. Составьте программу, которая определяет количество учеников, чей вес не превышает среднего. Вес должен задаваться случайными числами в диапазоне от 35 до 60.
Напишите программу в текстовом документе, либо в программе Pascal ABC и прикрепите файл.
Напишите программу в текстовом документе, либо в программе Pascal ABC и прикрепите файл.
More Questions From This User See All
Answers & Comments
Ответ:
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.
Объяснение: