В массиве хранятся сведения о росте 30 человек. Заполнить массив, если известно, что рост...

Question

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

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.

Comments

спасибо а еще одну можешь?

---

да

---

http://znanija.com/task/14003684 вот создал