Question

Информатика. Паскаль.

Подсчитать количество отрицательных элементов одномерного массива

Answer 1

Program P1;
uses crt; {Нужно для очистки экрана, писать не обязательно}
var i, n, count: integer;
      a:array [1..50] of real;

begin
clrscr;
write('n= '); readln(n);
for i:=1 to n do
  readln(a[i]);
for i:=1 to n do
  if a[i]<0 then count:=count+1;
writeln('В вашем массиве ', count, ' отрицательных элементов');
readln;
end.

Answer 2

// PascalABC.NET 3.3, сборка 1561 от 02.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  Writeln('Отрицательных элементов- ',a.Where(x->x<0).Count)
end.

Пример
n= 15
27 46 -29 -31 28 49 18 16 -5 -11 -20 30 -33 -14 41
Отрицательных элементов- 7