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

1 ответ

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

DevAdmin

1685

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

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

Найти нужный

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

1.Производительность работы компьютера (быстрота выполнения операций) зависит от … размера экрана сопротивления сети тактовой частоты процессора на... 1. Чему равен 1 Мбайт ... 1) 106 бит 2) 106 байт 3)1024 Кбайт 4)1024 байт 2.Какое количество информации содержит один разряд шестнадцатеричного чис... Как определить, что ваш компьютер заражен? Друзья получают от вас по электронной почте сообщения, которых вы не посылали Компьютер часто зависает ли... Какая формула соответствует поиску документа, содержащего цитату , включая пропущенное слово? Игра| Инженер | Задача Игра Инженер Задача "Игра *Инже... В таблице Dat хранятся данные измерений среднесуточной температуры за 10 дней в градусах (Dat[1] – данные за первый день, Dat[2] – за второй и т. д.)....