Помогите пожалуйста нп завтро надо срочно найдите количество положительных и количество...

Question

Помогите пожалуйста нп завтро надо срочно найдите количество положительных и количество отрицательных элементов массива из 8 целвх чисел. Заранее СПАСИБО

Answer 1

Program n1;
var a: array[1..8] of integer;
ko,kp,i: integer;
begin
write('массив: ');
ko:=0;
kp:=0;
for i:=1 to 8 do
begin
a[i]:=random(21)-10;
write(a[i],' ');
if a[i]>0 then kp:=kp+1;
if a[i]<0 then ko:=ko+1;<br>end;
writeln;
writeln('количество отрицательных: ',ko);
write('количество положительных: ',kp);
end.

Answer 2

// PascalABC.NET 3.3

begin
  var a:=ArrRandom(8,-30,30); a.Println;
  writeln('Положительных: ',a.Where(x->x>0).Count);
  writeln('Отрицательных: ',a.Where(x->x<0).Count);<br>end.

Пример:
19 17 -1 21 -23 -13 20 24
Положительных: 5
Отрицательных: 3