Страница 72-86 §2.2 номер 10, ГДЗ по информатике за 9 класс к учебнику Босовой

program z_10;const n = 50; c = 170;var i, k: integer; a: array [1..n] of integer;begin k := 0; randomize; for i := 1 to n do begin a[i] := random(51) + 150; write(a[i], ' ') end; for i := 1 to n do if a[i] >= c then k := k + 1; writeln; writeln('Количество претендентов: ', k)end.