Дан массив, содержащий N элементов и заполненный случайными числами от - 10 до 9. Сформировать новый массив из значений элементов, стоящих на четных местах. Подсчитать количество отрицательных и положительных значений элементов в новом массиве.

Var a, b:array of integer;

n, i, p, o:integer;

begin

readln (n) ;

setlength (a, n) ;

for i:=0 to n-1 do a[i]:=random (-10,9) ;

n:=n div 2;

setlength (b, n) ;

for i:=0 to n-1 do begin

b[i]:=a[2*i];

if b[i]>0 then p+=1 else if b[i]<0 then o+=1;

write (b[i],' ') ;

end;

writeln () ;

writeln ('Положительных ', p) ;

writeln ('Отрицательных ', o) ;

end.

Var b, c, n, i, r:integer;

mass1:array[1 ... 1000] of integer;

mass2:array[1 ... 1000] of integer;

begin

writeln ('Введите кол-во элементов массива') ;

read (n) ;

r:=1;

for i:=1 to n do

begin

mass1[i]:=random (19) - 10;

if i mod 2=0 then begin

mass2[r]:=mass1[i];

r:=r+1;

end;

end;

for i:=1 to r do

if mass2[r]>0 then c:=c+1 else b:=b+1;

writeln ('Исходный массив') ;

for i:=1 to n do

write (mass1[i]:4) ;

writeln;

for i:=1 to r do

write (mass2[i]:4) ;

writeln;

writeln ('Кол-во положительных элементов массива равно ', c,' а отрицательных равно ', b) ;

end.