Розробка та виконання програм на мові Pascal

if a[max1,max2]
max1:=i;

max2:=j;

end;

if a[min1,min2]>a[i,j] then begin

min1:=i;

min2:=j;

end;

end;

clrscr;

writeln('Вихiдний масив:');

for i:=1 to 5 do begin

for j:=1 to 5 do write(a[i,j],' ');

writeln;

end;

temp:=a[max1,max2];

a[max1,max2]:=a[min1,min2];

a[min1,min2]:=temp;

writeln('Перетворений масив:');

for i:=1 to 5 do begin

for j:=1 to 5 do write(a[i,j],' ');

writeln;

end;

end.

Р Е З У Л Ь Т А Т И О Б Ч И С Л Е Н Ь П Р О Г Р А М И :