Вмассиве хранятся сведения о росте 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.