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.
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.
// Внимание! Если программа не работает, обновите версию!
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