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

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

Найти нужный

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

1.Размеры 1,2,3,4 поколений эвм. 2.Количество 1,2,3,4 поколений эвм в мире 3.Быстродействие 1,2,3,4 поколений эвм 4.Объём оперативной памяти 1,2,3,4 п... В каком случае разные файлы могут иметь одинаковые имена? 1) если они имеют разный размер; 2)если они созданы в разное время; 3) если они находятся в... Дан двоичный код 8-цветного изображения. Размер монитора — 10x10 пикселей. Что изображено на рисунке (зарисовать)?... ОТДАЮ 70 БАЛЛОВ!!! СРОЧНО!!! Адрес ячейки электронной таблицы – это … имя, состоящее из любой последовательности символов имя, состоящее из имени... Дано целое число. Если оно является положительным. То прибавить к нему 1; если же отрицательным то вычесть 2 Вывести полученное число...