Дан двумерный массив целых чисел. Ко всем четным элементам матрицы прибавить первый элемент соответствующей строки.
ПАСКАЛЬ
- program chik;var a:array[1..100,1..100]of integer;n,m,i,j:integer;beginreadln(n,m);for i:=1 to n dofor j:=1 to m doread(a[i,j]);for i:=1 to n dofor j:=m downto 1 doif(a[i,j] mod 2=0)then a[i,j]:=a[i,j]+a[i,1];for i:=1 to n dobeginfor j:=1 to m dowrite(a[i,j],’ ‘);writeln;end;end.n,m-размеры матрицыa[i,j]-элементы матрицыпримерn=3 m=31 2 34 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=3a[2,1]:=a[2,1]+a[2,1]=4+4=8..но чтобы первый элемент строки не изменился перед тем как нам нужно будет проверит другие элементы поэтому for j:=m downto 1 делаем т.е с конца строки проверяем чтобы первый эл.строки матрицы не изменилась
Надеюсь всё понятно