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

Question

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

Answer 1

Const n = 15;
var a:array[1..n] of integer;
i,k:integer;
begin
  for i:=1 to n do begin
    a[i]:=random(101)-50;write(a[i]:4);
  end;
  writeln;
  for i:=2 to n do if a[i]  writeln('Меньше чем ',a[1],' получилось: ', k);
end.

Тестовое решение
12  13  19 -14 -23 -12 -11  37 -48 -45  30 -12  47  17  50
Меньше чем 12 получилось: 7

Answer 2

  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.

Comments

По условию работаем с массивом

---

С массивом, так с массивом

---

Вот, другое дело