Question

Помогите с информатикой

Answer 1

var a:array of integer;

i,kp,ko,n:integer;

begin

readln (n);

a:=new integer [n+1];

for i:= 1 to n do

begin

read (a[i]);

if a[i]>0 then kp:=kp+1;

if a[i]<0 then ko:=ko+1

end;

write('Массив: ');

for i:= 1 to n do write (a[i],'  ');

writeln;

writeln('Количество полож. чисел             Количество отриц. чисел');

writeln(kp:11,ko:37)

end.

Answer 2

// PascalABC.NET версия 3.4, сборка 1767

begin

var n:=ReadInteger(' n = ');

var mas:=ReadArrInteger('Введите элементы массива: ',n);

Writeln('Количество полож. чисел             Количество отриц. чисел');

Writeln(mas.Where(t->t>0).Count:11,mas.Where(t->t<0).Count:37);

end.