Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

Задан числовой массив, состоящий из 15 элементов. Подсчитать и вывести на экран количество элементов в массиве, которые меньше его первого элемента.

Ответ оставил Гость

const n= 15;
 var
   a:array[1..n] of integer;
   i,c:integer;
 begin
   for i:=1 to n do
    begin
      read(a[i]);
      if a[i]      c:=c+1;
    end;
  writeln(c);
 end.