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