Просмотр поста

Zidan_@777@ (10.12.2012 / 20:35)
народ, кто шарит в дельфи помогите решить пару задачик. Первая:

Вторая:

type aType: array[1..10][1..10];

procedure TForm1.fMatrix(arr: aType): aType;
var i, j, c1, c2, c3, c4, max, min: integer;
begin
max := arr[1][1]; min := arr[1][1];
for i := 1 to 10 do begin
for j := 1 to 10 do begin
if(arr[i][j] > max) then begin
c1 := i; c2 := j; max := arr[i][j];
end;

if(arr[i][j] < min) then begin
c3 := i; c4 := j; min := arr[i][j];
end;
end;
end;

arr[c1][c2] := arr[c1][c2] + arr[c3][c4];
arr[c3][c4] := arr[c1][c2] - arr[c3][c4];
arr[c1][c2] := arr[c1][c2] - arr[c3][c4];

fMatrix := arr;
end;