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] > max then
begin
max:=a[i];
imax:=i
end;
if a[i] < 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.