const
n=5;
var
a:array [1..n] of integer;
i,k:integer;
begin
writeln ('enter massiv');
for i:=1 to n do
read (a[i]);
k:=a[1];
a[1]:=a[n];
a[n]:=k;
for i:=1 to n do
write (a[i]:3);
readln
end.

const
n=5;
var
a:array [1..n] of integer;
i:integer;
begin
writeln ('enter massiv');
for i:=1 to n do begin
read (a[i]);
if a[i]=0 then a[i]:=100;
end;
for i:=1 to n do
write (a[i]:3);
readln
end.

const
n=5;
var
a:array [1..n,1..n] of integer;
i,j,k:integer;
begin
k:=-1;
randomize;
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=random(20);
write (a[i,j]:3);
if a[i,j]=a[1,1] then inc(k);
end;
writeln;
end;
writeln ('Количество элементов равных первому равно (первый элемент не считаем)',k);
readln
end.

const
n=5;
var
a:array [1..n,1..n] of integer;
i,j,max,min,maxi,mini,maxj,minj:integer;
begin
maxi:=0;
mini:=0;
maxj:=0;
minj:=0;
max:=-12;
min:=100;
randomize;
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=random(20);
write (a[i,j]:3);
if a[i,j]<min then begin min:=a[i,j]; mini:=i; minj:=j; end;
if a[i,j]>max then begin max:=a[i,j]; maxi:=i; maxj:=j; end;
end;
writeln;
end;
a[mini,minj]:=max;
a[maxi,maxj]:=min;
writeln;
for i:=1 to n do begin
for j:=1 to n do begin
write (a[i,j]:3);
end;
writeln;
end;
readln
end.