Программирование в Pascal) Надо написать программу. 1.N=20 Определить сумму отрицательных элементов массива. 2.Сдвинуть элементы массива на одну позицию вправо, последний элемент переместить на первое место. 3.Все положительные элементы исходного массива записать во второй массив, все отрицательные элементы – в третий массив.

1. 
Program A1;
const n=20;
var
i,a:integer;
O:array[1..n] of integer;
begin
a:=0;
for i:=1 to n do begin
readln(o[i]);
if o[i]end;
writeln(a);
end.

2.
Program A1;
const n=20;
var
i,a:integer;
O:array[1..n] of integer;
begin
a:=0;
for i:=1 to n do readln(o[i]);
a:=o[n];
for i:=n-1 downto 1 do o[i+1]:=o[i];
o[1]:=a;
for i:=1 to n do  write( ,o[i], );
end.

3.
Program A1;
const n=20;
var
i,a:integer;
O:array[1..n] of integer;
P:array[1..n] of integer;
M:array[1..n] of integer;
begin
for i:=1 to n do begin
readln(o[i]);
if o[i]>0 then p[i]:=o[i];
if o[i]end;
for i:=1 to n do write( ,o[i], );
writeln;
for i:=1 to n do
if p[i]0 then
write( ,p[i], );
writeln;
for i:=1 to n do  
if m[i]0 then
write( ,m[i], );
writeln;
end.