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

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

11 4 -7 3 2

8 9 2 2 3

Перетворений масив:

1 2 3 4 5