Дан массив А (N). Определить количество нечетных и отрицательных элементов массива. Изменить знак у элементов. Вывести исходный и преобразованный массив и количество элементов.

Uses SysUtils, Windows;

var a:array of Integer; i, n, s, o:Integer;

begin

o:=0;

s:=0;

SetConsoleOutputCP (1251) ;

Randomize;

write ('Введите "N": ') ;

readln (n) ;

SetLength (a, n) ;

for i:=0 to Length (a) do

begin

a[i]:=Random (10) - 5;

write (a[i]:3) ;

end;

Writeln;

Writeln;

for i:=0 to Length (a) do

begin

if a[i] mod 2=1 then

Inc (s) ;

if a[i]<0 then

Inc (o) ;

a[i]:=a[i] * (-1) ;

end;

Writeln ('Кол-во отрицательных элементов: ', o) ;

Writeln ('Кол-во нечетных элементов: ', s) ;

Writeln;

for i:=0 to Length (a) do

write (a[i]:3) ;

readln;

end.