Program z_9; var i, s: integer;
a: array [1..50] of integer;
begin
s:=0;
for i:=1 to 50 do begin
a[i] := random(150, 200);
if a[i]>=170 then s:=s+1;
end;
writeln(s, ' ученика(-ов) могут претендовать в баскетбольную команду.');
end.
нужно вывести рост и количество учеников в 2 строки

doinak88    1   16.03.2022 18:06    0