Квадратные массивы

[Janette]

Дброго времени суток
Очень нужна помощь в решении задачки ((

Даны два квадратных (n*n) массива A и B. Вывести на экран тот из них, у которого след (сумма элементов главной диагонали) меньше.

[Air]

Если А и В простые массивы, то:

Var intA, intB:integer;
begin
intA:=0;
intB:=0;
for i:=1 to 10 do
 intA:=intA+A[i,i];

for i:=1 to 10 do
 intB:=intB+A[i,i];

if intA < intB then //<выводишь А> else //<выводишь B>
end;

пробуй так.

[Janette]

Благодарю =)

[Janette]

for i:=1 to 10 do
intA:=intA+A[i,i];

for i:=1 to 10 do
intB:=intB+A[i,i];

неправильно что-то (((
как быть?

[Карась]

for i:=1 to 10 do
intA:=intA+A[i,i];

for i:=1 to 10 do
intB:=intB+A[i,i];

А надо: intB:=intB+B[i,i];

бред

Приводите полный код программы.

бред

АДД: Дочитал до конца условие....

[SNUPY]

for i:=1 to 10 do
Почему цикл до 10 бежит?

[Карась]

Остаётся только сравнить суммы.

Var x, y : Byte;
      M, N : Array [1..10, 1..10] Of Byte;
      SumN, SumM : Integer;

Begin

Randomize;
For x := 1 To 10 Do
  Begin
    For y := 1 To 10 Do
      Begin
        M[x,y] := Random(5) + 1;
        N[x,y] := Random(5) + 1;
      End;
  End;

For x := 1 To 10 Do
  Begin
    For y := 1 To 10 Do
      Write(M[x,y],' ');
    Writeln;
  End;

Writeln; Writeln;

For x := 1 To 10 Do
  Begin
    For y := 1 To 10 Do
      Write(N[x,y],' ');
    Writeln;
  End;

Writeln;

SumM := 0; SumN := 0;
For x := 1 To 10 Do
  Begin
    SumM := SumM + M[x,x];
    SumN := SumN + N[x,x];
  End;

Writeln(SumM); Writeln(SumN);

Readln;
End.