2. Дан числовой...

2. Дан числовой массив А, состоящий из п натуральных чисел. Определите количество элементов массива, которые больше заданного числа. (3балла)

 

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