Запишите на языке Паскаль программу решения задачиОбьяален набор в школьную бесбольную

Question

Запишите на языке Паскаль программу решения задачиОбьяален набор в школьную бесбольную

Запишите на языке Паскаль программу решения задачки
Обьяален набор в школьную бесбольную каманду известен рост каждого из n учястников желаюшего попасть в эту команду.
Подсчитайте количество кандидатов имеюших шанс попасть в команду, если рост игрока команды обязан быть не наименее 170 см.
Считайте рост кандидата в команду случяйным числом из диапазона от 150 до 200 см, а число претендентов n=50

Задать свой вопрос

Геннадий
Информатика
2019-07-06 19:21:37
0
1

1 ответ

, оставишь ответ?

Имя:*

E-Mail:

Похожие вопросы

треугольник ABC задан координатами вершин A(-4;0 )B(4;0)C(0;2) Найдите длину медианы АК

Какие органы данных растений изменяются методом искусственного отбора?Растения: 1. лук, 2.

Расположите последующих правителей в хронологическом порядке.A) Пётр III Б) Елизавета I

Помогите решить пример 2*2-890556+67486-789=

Переведите на Англ.яз. Когда я выхожу из дома я иду прямо

кшпеллер ркениет-.....,кшп-онып тршлк ететн адамдарды ауымдастыы помогите

Пожалуйста быстрее!!!!))))

Загадк на беларускай мове пра цягнк,тортик ,рыбу шапку.

0,4*6,02*10^23/4*10^-3=

Какую звезду земляне нарекают путеводной ? В каком созвездии она находится

Шаракшанг Семён · Answer 1 · 2019-07-06 19:27:06+3:00

Const n=50;
var a:array[1..n] of integer;
k,i:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(51)+150;
write(a[i],' ');
end;
writeln;
k:=0;
for i:=1 to n do
if a[i]gt;=170 then k:=k+1;
writeln('k = ',k);
end.

Пример (для n=10):
157 183 166 153 200 151 200 180 161 175
k = 5

О проекте

Запишите на языке Паскаль программу решения задачиОбьяален набор в школьную бесбольную

Добро пожаловать!