объявлен набор в школьную баскетбольную команду.известен рост каждого из 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 строчку.... Добрый день! Помогите с решением задачи для 6 класса..... Железнодорожный перегон — участок железнодорожной линии, который соединяет соседние п... Расширение файла, как правило, характеризует: 1. время создания файла; 2. объем файла; 3. место, занимаемое файлом на диске; 4. тип информации, сод... 1. В одной из кодировок Unicode каждый символ кодируется 16 битами. Вова написал текст (в нём нет лишних пробелов): «Ёж, лев, слон, олень, тюлень, но... Необходимо решить задачу! Помогите пожалуйста! Пять букв английского алфавита закодированы кодами различной длины. Эти коды представлены в таблице....