Цитата:
Сообщение от Madara
Помогите пожалуйста как можно скорее решить задачу.
Буду очень признателен.
Заранее спасибо!
|
Да пожалуйста - какие проблемы?
Код:
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.