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

Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.