В массиве хранятся сведения о росте 30 человек. Заполнить массив, если известно, что рост самого высокого равен 205 см, а самого низкого - 150 см. Найти средний рост.
В массиве хранятся сведения о росте 30 человек. Заполнить массив, если известно, что рост самого высокого равен 205 см, а самого низкого - 150 см. Найти средний рост.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы