3 вариант плес. паскаль

Код программы:

const N = 6;

var

 a:array[1..N] of integer;

 i:integer;

begin

 writeln('Введите массив');

 for i:= 1 to N do

   readln(a[i]);

 writeln('Введенный массив:');

 for i:= 1 to N do

   writeln(a[i]);

for i:= 1 to N do

   if (a[i] > 0) then

     a[i] := -a[i]

   else

     a[i] := abs(a[i]);

   writeln('Измененный массив:');

 for i:= 1 to N do

   writeln(a[i]);

end.

program z1;

const n=11;

var a:array[1..n]of integer;

i:integer;

begin

for i:= 1 to n do

begin

write('a[',i,'] = ');

readln (a[i])

end;

writeln;

writeln('Вывод массива в столбик: ');  

for i:= 1 to n do

begin

a[i]:=-a[i];

writeln(a[i])

end

end.