Вмассиве хранится информация о росте 35 человек (в санатории "буг" 1.опишите данный массив 2.заполните массив случайными целыми числами из отрезка[130; 190] 3.выведите элементы массива в строку через пробел. 4.подсчитайте кол-во человек, рост которых не ниже 160 см. 5.выведите номера тех людей, рост которых кратен 3 6.определите рост самого высокого человека. 7.найдите средний рост отдыхающих
var
a:array[1..35] of integer;
b,c,d:integer;
i:real;
Begin
for b:=1 to 35 do
a[b]:=random(49)+132;
for b:=1 to 35 do
write(a[b],' ');
writeln;
for b:=1 to 35 do
if a[b]>159 then c:=c+1;
for b:=1 to 35 do
if a[b] mod 3=0 then write(b,' ');
writeln;
for b:=1 to 35 do
if a[b]>d then d:=a[b];
writeln(d);
for b:=1 to 35 do
i:=i+a[b];
i:=i/35;
writeln('Средний рост: ',i:0:3);
end.