В массиве хранятся сведения о росте 30 человек. Заполнить массив, если известно, что рост самого высокого равен 205 см, а самого низкого - 150 см. Найти средний рост.

Question

Информатика

Федотий

28 декабря, 02:07

В массиве хранятся сведения о росте 30 человек. Заполнить массив, если известно, что рост самого высокого равен 205 см, а самого низкого - 150 см. Найти средний рост.

+4

Ответы (1)

Знаете ответ на вопрос?

Кир · Answer 1

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

i:integer;

s:real;

begin

randomize;

for i:=1 to 30 do

begin

a[i]:=150+random (56) ;

write (a[i]:4) ;

s:=s+a[i];

end;

writeln;

writeln (s/30:7:2) ;

end.