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

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

Найти нужный

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

16:35 3 7 из 7 22:36 Выполни вычисления по блок-схеме для чисел 20 и 13. Начало Да Нет чётное Результат Конец Сдать учителю Skysmart Клас... Как называется количество символов в алфавите позиционной системе счисления?... 1.Процессор обрабатывает информацию,представленную: 1)в десятичной системе счисления. 2)на языке программирования высокого уровня 3)на алгоритмическ... Чему будет равна переменная  c  после выполнения этой программы: a := 5; b := 9; b := a + b; c := a + b;... скорость школьной сети равна 100 Мбит в секунду. определите объем файла, который можно скачать в этой сетиза 128 секунд Ответ запишите в мегабайтах...