Ан массив целых чисел n=14 заполненный случайным образом числами из промежутка [-15 30] 1) удалить последний четный элемент 2) поменять местами первую и вторую его половины.

1)

var

i, k:integer;

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

begin

k:=0;

for i:=1 to 14 do

begin

a[i]:=random (46) - 15;

write (a[i]:3) ;

if a[i] mod 2=0 then k:=i;

end;

if k>0 then

begin

for i:=k to 13 do a[i]:=a[i]+1;

a[14]:=0;

end;

writeln;

for i:=1 to 14 do write (a[i]:3) ;

end.

2)

var

i, k:integer;

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

begin

for i:=1 to 14 do

begin

a[i]:=random (46) - 15;

write (a[i]:3) ;

end;

for i:=1 to 7 do

begin

k:=a[i];

a[i]:=a[i+7];

a[i+7]:=k;

end;

writeln;

for i:=1 to 14 do write (a[i]:3) ;

end.