Дан двумерный массив целых чисел. Ко всем четным элементам матрицы прибавить первый элемент соответствующей строки. ПАСКАЛЬ
Дан двумерный массив целых чисел. Ко всем четным элементам матрицы прибавить первый элемент соответствующей строки. ПАСКАЛЬ
Гость
Ответ(ы) на вопрос:
Гость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
делаем т.е с конца строки проверяем чтобы первый эл.строки матрицы не изменилась
Надеюсь всё понятно
Не нашли ответ?
Похожие вопросы