сделайте пожалуйста информационный Массив с рандомом
Рост ученика для команды 160-190
Рост учеников в классе от 130-200см
В классе 32 ученика
сделайте массив по примеру этого
Приложения:
![](https://st.uroker.com/files/851/851bdb4dc9d40fb67a1a632bde12d62b.jpg)
Ответы
Ответ дал:
1
Ответ:
program z;
var
a: array [1..32] of integer;
i, k: integer;
begin
writeln('');
randomize;
for i:=1 to 32 do a[i]:=random(130,200);
for i:=1 to 32 do write(a[i],' ');
k:=0;
for i:=1 to 32 do if (a[i] >= 160) and (a[i] <= 190) then k:=k+1;
writeln ();
writeln(k);
end.
Объяснение:
a: array [1..32] of integer; - в классе 32 ученика
for i:=1 to 32 do a[i]:=random(130,200); - рост учеников в классе от 130 до 200 см
for i:=1 to 32 do if (a[i] >= 160) and (a[i] <= 190) then k:=k+1; - рост ученика для команды от 160 до 190 см (подсчитываем количество учеников подходящего роста)
Приложения:
![](https://st.uroker.com/files/8ec/8ec29cb25dd7ff7134538413d8eaf844.png)
yeva330:
Спасибо
Вас заинтересует
1 месяц назад
1 месяц назад
2 месяца назад
2 месяца назад
1 год назад
1 год назад
7 лет назад