объявлен набор в школьную баскетбольную команду.известен рост каждого из 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

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

Найти нужный

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

Чему равно значение переменной s после выполнения следующего фрагмента программы: s:=0; for i:=0 to 5 do s:=s+1; 15 6 5 0... Дано четырехзначное число. Проверить, явояется ли число счастливым. Через блок-схему надо решить... Приведите пример циклического алгоритма: а) из повседневной жизни; б) из литературного произведения; в) из любой предметной области, изучаемой в шко... ЛАБОРАТОРНАЯ РАБОТА № 11 Создание отчета 1. Закладка Отчеты, Создать, Мастер отчетов.(Правонарушители) - 1 окно выбираем поля (Код правон... 1 Глобальная компьютерная сеть – это: а) информационная система с гиперсвязями; б) множество компьютеров, связанных каналами передачи информации и на...