Запишите на языке паскаль программу решения обьяален - вопрос №8163500 от 87074552993 19.02.2023 00:41

Question

Информатика: Запишите на языке паскаль программу решения обьяален набор в школьную бесбольную каманду известен рост каждого из n учястников желаюшего попасть в эту команду. подсчитайте количество претендентов имеюших шанс попасть в команду, если рост игрока команды должен быть не менее 170 см. считайте рост претендента в команду случяйным числом из диапазона от 150 до 200 см, а число претендентов n=50

87074552993 · Answer

Const n=50;var a:array[1..n] of integer;k,i:integer;beginRandomize;for i:=1 to n do begin a[i]:=random(51)+150; write(a[i], ); end;writeln;k:=0;for i:=1 to n do if a[i] =170 then k:=k+1;writeln( k = ,k);end.Пример (для n=10):157 183 166 153 200 151 200 180 161 175k = 5...