var
a:array [1..30] of real;
i:integer;
min,max,sum,k:real;
begin
randomize;
for i:=1 to 30 do
a[i]:=random(1000)-500;
writeln ('Ваш массив');
for i:=1 to 30 do
write (a[i],' ');
min:=a[1];
max:=a[1];
sum:=0;
for i:=1 to 30 do begin
if (a[i]<min) then min:=a[i];
if (a[i]>max) then max:=a[i];
if (a[i]<0) then sum:=sum+a[i];
end;
k:=a[30];
a[30]:=a[14];
a[14]:=k;
writeln ;
writeln ('Новый массив');
for i:=1 to 30 do
write (a[i],' ');
writeln ;
writeln ('Max=',max);
writeln ('Min=',min);
writeln ('Sum=',sum);
end.