В массиве хранится информация о росте 35 человек (в см.),проживающихв санатории "Буг"...

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