3 и 4 задачки срочно. Пожалуйста!

3.

const n=10;

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

i,max,min,imax,imin:integer;

begin

min:=100;

max:=1;

write('  Начальный массив: ');

for i:=1 to n do

begin

a[i]:=random(100)+1;

if a[i] gt; max then

begin

max:=a[i];

imax:=i

end;

if a[i] lt; min then  

begin

min:=a[i];

imin:=i

end;

write(a[i]:3,' ')

end;

writeln;

a[imax]:=min;

a[imin]:=max;

write('Полученный массив: ');

for i:=1 to n do write(a[i]:3,' ')

end.

4.

const n=10;

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

i,v:integer;

begin

write('  Исходный массив: ');

for i:=1 to n do

begin

a[i]:=random(100)+1;

write(a[i]:3,' ')

end;

writeln;

for i:=1 to 5 do

begin

v:=a[i*2-1];

a[i*2-1]:=a[i*2];

a[i*2]:=v

end;

write('Полученный массив: ');

for i:=1 to n do write(a[i]:3,' ')

end.