Дан двумерный массив целых чисел. Ко всем четным элементам матрицы прибавить первый элемент соответствующей строки. ПАСКАЛЬ

Дан двумерный массив целых чисел. Ко всем четным элементам матрицы прибавить первый элемент соответствующей строки.

ПАСКАЛЬ

  • program chik;
    var a:array[1..100,1..100]of integer;
    n,m,i,j:integer;
    begin
    readln(n,m);
    for i:=1 to n do
    for j:=1 to m do
    read(a[i,j]);
    for i:=1 to n do
    for j:=m downto 1 do
    if(a[i,j] mod 2=0)then a[i,j]:=a[i,j]+a[i,1];
    for i:=1 to n do
    begin
    for j:=1 to m do
    write(a[i,j],’ ‘);
    writeln;
    end;
    end.
    n,m-размеры матрицы
    a[i,j]-элементы матрицы
    пример
    n=3 m=3
    1 2 3
    4 5 6
    7 8 9

    вывод:
    1 3 3 
    8 5 10
    7 15 9 
    a[1,2]:=a[1,2]+a[1,1]=2+1=3
    a[2,1]:=a[2,1]+a[2,1]=4+4=8
    ..
    но чтобы первый элемент строки не изменился перед тем как нам нужно будет проверит другие элементы поэтому for j:=m downto 1 
    делаем т.е с конца строки проверяем чтобы первый эл.строки матрицы не изменилась
    Надеюсь всё понятно