Question

Сколько элементов массива больше числа A. Написать программу на языке Pascal.

Answer 1

var i,a,n,k:longint;

var mas:array[1..100000000] of longint;

begin

k:=0;

writeln('Введите количество элементов массива');

readln(n);

writeln('Введите число A');

readln(a);

for i:=1 to n do begin writeln('Введите элемент массива'); readln(mas[i]); if mas[i]>a then k:=k+1; end;

writeln(k,' элементов массива больше числа',' ', a);

end.