Предмет: Информатика,
автор: Aliiiiiiiinnaaaaàaa
с клавиатуры введен рост учеников (N количество) класса в виде множества.Нужно найти средний рост учеников
Ответы
Автор ответа:
0
// PascalABC.Net 3.0, сборка 1066
var
i,n,k,h,a:integer;
s:set of 120..180;
begin
Write('Количество учеников: '); Read(n);
Writeln('Введите рост учеников');
for i:=1 to n do begin Read(h); s:=s+[h] end;
k:=0; a:=0;
for i:=120 to 180 do
if i in s then begin Inc(k); a:=a+i end;
Writeln('Средний рост равен ',a/k)
end.
var
i,n,k,h,a:integer;
s:set of 120..180;
begin
Write('Количество учеников: '); Read(n);
Writeln('Введите рост учеников');
for i:=1 to n do begin Read(h); s:=s+[h] end;
k:=0; a:=0;
for i:=120 to 180 do
if i in s then begin Inc(k); a:=a+i end;
Writeln('Средний рост равен ',a/k)
end.
Автор ответа:
0
Поменял ввод на "школьный вариант"
Похожие вопросы
Предмет: Математика,
автор: l1mbo66
Предмет: Биология,
автор: skfiddnzkai
Предмет: Русский язык,
автор: artomkapogiba
Предмет: Математика,
автор: ывафн