в массиве А(N) поменяйте местами первый отрицательный и ...

Ira

uses crt;

const N=10;var a:array[1..N] of integer; i,k,m,min,imin:integer;Beginreadln(m);for i:=1 to m do beginreadln(a[i]);min:=min+a[i];end;

for i:=1 to m do beginif a[i]