ЛР12 Программирование (2.5.2 В22) - III

LabWork12
📑 Compile Pascal Online

III. Программа Pascal

Program Lab12;

var A: array [1..1000,1..1000] of real;

var S,S1,S2: string;

var M: real;

var N,i,j: integer;

begin

    writeln('Лаб.12':38);

    writeln('Количество строк и столбцов матрицы N: '); 

    readln(N); writeln(N:3);

    writeln('Матрица A и измененная матрица AM:');

    M:=0;

    for i:=1 to N do

    begin

        S1:='A: '; S2:='AM: ';

        for j:=1 to N do

        begin

            read(A[i,j]); 

            str(A[i,j]:5:2,S); S1:=concat(S1,S,' ');

            if ((i>j) and (A[i,j]>A[j,i])) then 

                A[i,j]:=(A[i,j]+A[j,i])/2;

            if i=j then 

                M:=M+A[i,j];

            str(A[i,j]:5:2,S); S2:=concat(S2,S,' ');

        end;

        readln(); writeln(); 

        writeln(S1); writeln(S2);

    end;

end.

STDIN

5

-0.5727 -0.8283 -0.0007 -0.197 -0.1217

-0.1095 0.7341 0.5564 0.6557 -0.1558

0.0566 -0.4795 -0.9174 -0.0483 -0.6357

-0.0346 0.0936 0.4842 -0.8324 0.9491

-0.0415 -0.6307 -0.9783 -0.2425 0.1731