Технический форум - Задача. Паскаль. Матрица

Цитата:

Сообщение от Madara (Сообщение 984956)

Помогите пожалуйста как можно скорее решить задачу.
Буду очень признателен.
Заранее спасибо!

Да пожалуйста - какие проблемы?

Код:

Const

 N=8;

Var

 A:Array[1..N,1..N] of Integer;

 X:Array[1..N] of Integer;

 i,j:Integer;

 Med_high,Med_low:Real;



Begin

 Med_high:=0;

 Med_low:=0;

 for j:=1 to N do X[j]:=0;

 for i:=1 to N do

  for j:=1 to N do

   begin

    Write('A[',i,',',j,']= ');

    Readln(A[i,j]);

    if j>i then Med_high:=Med_high+A[i,j];

    if j<i then Med_low:=Med_low+A[i,j];

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

   end;

 Med_high:=Med_high/((N*N-N) div 2);

 Med_low:=Med_low/((N*N-N) div 2);

 Writeln('Matrix A:');

 for i:=1 to N do

  begin

   write('      ');

   for j:=1 to N do

    write(A[i,j]:8);

   writeln;

  end;

 writeln;

 writeln('Med_high= ',Med_high:0:3,'      Med_low= ',Med_low:0:3);

 if Med_high>Med_low then

  begin

   writeln;

   write('Sums: ');

   for j:=1 to N do write(X[j]:8);

  end;

 Readln

End.