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

1 ответ

Посмотреть ответы

DevAdmin

1720

Program enot;
Var A: array[1..50] of integer;
i,k:integer;
begin
for i:= 1 to 50 do
a[i]:= random(51)+150;
k:=0;
for i:= 1 to 50 do
if a[i]>170 then k:=k+1;
writeln(k);
end.

Хороший ответ

1 сентября 2022 20:47

Остались вопросы?

Найти нужный

Еще вопросы по категории Информатика

Перевести 3 кбайт в бит С решением и 2408 бит перевести в кбит тоже с решением... Алгоритм вычисления значения функции F(n), где n — натуральное число, задан следующими соотношениями: F(n) = 1, при n = 0; F(n) = 4 * F(n – 1), если... ПАСКАЛЬ!!!Рассматривается множество целых чисел, принадлежащих числовому отрезку [25552; 58885], которые имеют не менее 15 двузначных делителей. Запиш... 1.Что такое алфавит? 2.Что такое мощность алфавита? 3. Как определяется информационный объем текста при использования алфавитного подхода? 4.Текст с... Среди coц cetey выбери сetь для младших школьников "мой мир майл ру" "началка.ком" "вк" "фейсбук"...