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

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

    writeln;  

         read(A[i]);  // Заполняем массив произвольными числами

       begin 

     col:=0;   //  Кол-во элементов больших заданного изначально = 0

    writeln('Кол-во элементов больших заданного: ',col); 

    end. 

    i,col:integer;

       end;

    begin

    const n = 5; // например 5

         if (A[i]>n) then col:=col+1;  // Если введенное число больше задонного (>5), то кол+1

     for i:=1 to n do

    var A:array [1..n] of integer;

    clrscr;

  • Program Free Pascal 2.6.0;

     

    Uses crt;

      

  • readkey;