Страница 54-55 параграф 1.4 вопрос 10, ГДЗ по информатике за 9 класс к учебнику Босовой за 2023 год Просвещение

program Z_1_4_10;const N = 50;vara: array[1..N] of integer; i, k: integer;begin randomize; k := 0; for i := 1 to N do begin a[i] := random(51) + 150; write(a[i], ' '); if a[i] >= 170 then inc(k) end; writeln; writeln('Имеют шанс попасть в программу >> ', k,' человек')end.