Question

найти количество элементов массива больших чем его первый элемент

Answer 1

var
k,s,i:longint;
m:array[1..100] of longint;
begin
 writeln('Введите количество элементов в массиве');
 read(k);

 writeln('Введите элементы массива');
 for i:=1 to k do
  read(m[i]);
 
 s:=0;

 for i:=1 to k do
 if  m[i]>m[1] then s:=s+1;
 
writeln(s);
end.

Answer 2

egsdgpsdgadiogjasklgja

fbff400d15fc735c73101c0e84e9c6ca.pas