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

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

Найти нужный

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

Толя, Петя, Саша и Ваня заняли четыре места в велокроссе. На вопрос, какие места они заняли, мальчики ответили: А) Толя не занял ни первое, ни четверт... Провести сложение, вычитание, умножение и деление двоичных чисел 1010₂ и 10₂ только с решение))буду благодарна... Сколько раз выполняется цикл в фрагменте программы: a:=1; b:=1; While a+b < 8 do begin a:=a+1; b:= b+2 end.... Найдите отличительные особенности компьютерного вируса: Выберите один ответ: a. он обладает маленьким объемом, способностью к самостоятельному запуск... Очень срочно сейчас нужна помощь Построить граф, отображающий состав и структуру мотопехотного батальона армии ФРГ (образца 1970 года) по следующему о...