Номер 10, страница 55 - гдз по информатике 9 класс учебник Босова, Босова

Параграф 1.4. Обработка одномерных массивов целых чисел на языке Паскаль. Глава 1. Алгоритмы и программирование - номер 10, страница 55.

Условие.

10. Объявлен набор в школьную баскетбольную команду. Известен рост каждого из N учеников, желающих попасть в эту команду. Составьте алгоритм подсчёта количества претендентов, имеющих шанс попасть в команду, если рост игрока команды должен быть не менее 170 см. Напишите программу, считая рост претендента в команду случайным числом из диапазона от 150 до 200 см, а число претендентов N = 50.

Решение.

var
h: array[1..50] of integer;
k, i: integer;
begin
k:= 0;
Randomize;
writeln('Рост участников:');
for i := 1 to 50 do
begin
h[i] := random(51) + 150;
writeln('Èãðîê ', i, ': ', h[i], ' ñì');
if h[i] >= 170 then
k:= k + 1;
end;
writeln('Количество участников, подходящих для команды:', k);
end.