Склавиатуры введен рост учеников (n количество) класса в виде множества.нужно найти средний рост учеников

160

429

Посмотреть ответы 2

Ответы на вопрос:

dashkin678

Информатика

4,4(92 оценок)

// 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.