Реферат: Елементи та структура програми мови Паскаль

if a[max1,max2]<a[i,j] then begin

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.

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

Вихiдний масив:

1 2 3 4 5

6 7 8 9 2

5 3 -3 -6 2