Вычислить сумму элементов любой строки двумерного массива А[m,n], стоящих на четных местах. M=3, n=7. Вывести исходный массив А, номер строки, исходную сумму и рассматриваемую строку, в которой все подходящие элементы заменены нулями.
Позарез нужно сделать ее, пропаду, если не сдам ее!
У меня никак не получается сделать ее как надо, подскажите если кто знает, очень благодарен буду. Ниже выкладываю свою версию решения, подправьте что не так.
Var A:array[1..50,1..70] of real;
I,j,m,n:integer;
Begin
Writeln(‘vvedite chislo strok m i stolbcov n’);
Readln(m,n);
Writeln(‘vvedite elementi massiva A po strokam’);
For i:=1 to m do
For j:=1 to n do readln(A[I,j]);
Writeln(‘ishodniy massiv A’);
For i:=1 to m do
Begin
For j:=1 to n do write (A[I,j]:7:1);
Writeln
end;