Учеба и наука

• Всего ответов: 1


Валерий Шиян
73-й в Учебе и науке
0 отзывов
Free Pascal:

const N = 10;
type matrix = array[1..N, 1..10] of integer;
var a: matrix;
i, j, k, max: integer;
 
begin
        randomize;
        for i := 1 to N do begin
                for j := 1 to N do begin
                        a[i, j] := random(10);
                end;
        end;
        
        for i := 1 to N do begin
                for j := 1 to N do begin
                        write(a[i, j], ' ');
                end;
                writeln;
        end;
        writeln;
 
        for i := 1 to N do begin
                k := 1;
                max := a[i, k];
                for j := 2 to N do begin
                        if (a[i, j] > max) then begin
                                k := j;
                                max := a[i, k];
                        end;
                end;
                a[i, i] := a[i, i] + a[i, k];
                a[i, k] := a[i, i] — a[i, k];
                a[i, i] := a[i, i] — a[i, k];
        end;
 
        for i := 1 to N do begin
                for j := 1 to N do begin
                        write(a[i, j], ' ');
                end;
                writeln;
        end;
        writeln;
end.
июнь 7, 2016 г.

Похожие вопросы