Вычислить суммы элементов матрицы, имеющих четные и нечетные индексы отдельно

[chichamuka]

Дана действительная квадратная матрица А размер nxn. Вычислить суммы элементов матрицы, имеющих четные и нечетные индексы отдельно.

[ViktorR]

Искать в Сети в лом???
Вот тут на QBasic:
http://www.cyberforum.ru/qbasic/thread1354612.html
Переведи на Паскаль. Потрудись хоть чуть-чуть.

[digitalis]

Мутная какая-то формулировка. Четные и нечетные индексы - оба должны быть? А, к примеру, [2,1] - ни туды, ни сюды ?

[newerow1989]

const n=10;
var i,j,s0,s1:integer;
    a:array[1..10,1..10] of integer;
begin
   Randomize;
   For i:=1 to n do
   begin
      For j:=1 to n do
      begin
         a[i,j]:=Random(21);
         Write(a[i,j]:3,'  ');
      end;
      Writeln;
   end;
   Writeln;
   s0:=0;
   s1:=0;
   For i:=1 to n do
      For j:=1 to n do
         If j mod 2=0 then
            s0:=s0+a[i,j] else
            s1:=s1+a[i,j];
   Writeln(s0,', ',s1);
   Readln;
end.

[digitalis]

Не совсем. Проверяется четность только одного индекса. А как надо - не знает ни стьюден, ни озадачивший его препод. "Поди туда - не знаю куда и принеси хрен зна што."