Вмассиве хранится информация о росте 35 человек (в санатории "буг" 1.опишите данный массив 2.заполните массив случайными целыми числами из отрезка[130; 190] 3.выведите элементы массива в строку через пробел. 4.подсчитайте кол-во человек, рост которых не ниже 160 см. 5.выведите номера тех людей, рост которых кратен 3 6.определите рост самого высокого человека. 7.найдите средний рост отдыхающих
yourdream23
1
04.10.2019 05:00
0
Другие вопросы по теме Информатика
Ника85527
30.04.2020 14:42
вика3879
30.04.2020 14:42
почмат
02.10.2019 10:20
Koley112
02.10.2019 10:20
hellkrest1
02.10.2019 10:20
DamirKa1111
16.10.2020 15:36
ОляКatschanjukolaola
09.12.2020 03:16
djonni74
19.07.2019 03:30
Популярные вопросы
- Как называется листовой рубец от опавшего чешуевидного листа на...
3 - На 2 базы поступило 92 одинаковых ящика с консервами ящики полученные...
3 - 10 вопросов ступені поріняння прикметників на ійскому...
2 - Найти значение переменной 3/7: 1(целая) 1/14 = 0,4: (4-y)...
3 - Решить уравнение .(3х-4)^2-9х^2=3х+7...
2 - Как вы думаете в чем причина популярности рассказов о шерлоке холмсе...
2 - 16 первых членов арифметической прогрессии минус 8; -4;...
3 - Представь в виде многочлена (4y+2x)(2x-4y) (b-2xy2)(b+2xy2) xy2-...
2 - Чтобы перевязать одним и тем же одинаковых посылок , потребовалась...
3 - Знайдіть перший член і знаменник ї прогресії (bn) якщо b10=9b8,b3+b6=168,q...
3
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.