В массиве хранятся сведения о росте 30 человек. Заполнить массив, если известно, что рост самого высокого равен 205 см, а самого низкого - 150 см. Найти средний рост.
Answers & Comments
Dеrevo
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.
Answers & Comments
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.