2. Дан числовой массив А, состоящий из п натуральных чисел. Определите количество…

Program Free Pascal 2,6,0; Uses crt; const n=5; // например 5var A: array [1… n] of integer; i,col: integer; beginclrscr; col: =0; // Кол-во элементов больших заданного изначально=0 for i: =1 to n do begin read (A[i]); // Заполняем массив произвольными числами if (A[i]>n) then col: =col+1; // Если введенное число больше задонного (>5), то кол +1 end; writeln; writeln ('Кол-во элементов больших заданного: ',col); readkey; end.