объявлен набор в школьную баскетбольную команду.известен рост каждого из 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 = "ПРИНЦЕССА" a="ОСЕНЬ" b="ШАХТЕР" s = s[0:3] + a[3] + b[-3:]... begin if (y <200) and (x > 100) then writeln('ДА') else writeln('НЕТ') end. Было проведено 10 запусков этой программы, при которых в качестве з... Доклад на тему древние носители информации. Срочно!... Переведите пожалуйста: 24 576 битов в Байты и Килобайты; 2048 Байтов в биты и Килобайты; 1,5 Кб в Байты и биты; 2 в степени 13 битов в Байты и Килобай...