Запишите на языке Паскаль программку решения задачи номер 34 к
Запишите на языке Паскаль программку решения задачки номер 34 к 3.4. Считайте рост претендента в команду случайным числом из диапозона от 150 до 200 см, а число кандидатов n=50. (Номер задачки 34 - Объявлен набор в школьную баскетбольную команду. Извесьен рост каждого из N воспитанников, желающих попасть в эту команду. Составьте алгоритм подсчёта количества кандидатов, имеющих шанс попасть в команду, если рост игрока команды должен быть не наименее 170 см.
Задать свой вопрос
var a: array [1..50] of integer;
i, col: integer;
begin
writeln(Генерируем массив с ростом кандидатов);
randomize;
for i := 1 to 50 do a[i]:=random(150, 200);
writeln(Считаем количество подходящих кандидатов);
for i := 1 to 50 do if a[i] gt; 170 then col := col + 1;
writeln(Количество подходящих конкурсантов одинаково: , col);
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Физика.
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.