Паскаль

[Jondeer]

Помогите пожалуйста решить задачу!
Изменить матрицу, прибавляя к каждому отрицательному элементу значение предыдущего элемента той же строки. Если отрицателен первый элемент строки,прибавить к нему значение последнего элемента строки.

[Рустам]

const n1=10, n2=20;
вот твоя матрица MATRIX array[1..n1,1..n2] of integer;

вот твои действия:
for i:=1 to n1 do begin
for j:=2 to n2 do begin
// если элемент отрицательный, то прибавляем к нему предыдущий.
if MATRIX[i,j]<0 then MATRIX[i,j]:=MATRIX[i,j]+MATRIX[i,j+1];
// если первый элемент отрицателен, то прибавляем к нему последний.
if MATRIX[i,1]<0 then MATRIX[i,1]:=MATRIX[i,1]+MATRIX[i,n2];
end;
end;

[Карась]

А кто задаёт матрицу?


Телепаты в отпуске.

[Jondeer]

Ребят! я с двумерным массивом не умею работать. Не могли бы вы тело цыкла написать???

[Stilet]

тело цыкла написать?

Тоесть? По-моему Рустам написал циклы...

[bill]

Сообщение от Jondeer

Ребят! я с двумерным массивом не умею работать. Не могли бы вы тело цыкла написать???

Здесь идет обьявление двумерного масива :

var MATRIX array[1..n1,1..n2] of integer;

циклы о которых спрашивал, позволяющие манипулировать значениями массива:

for i:=1 to n1 do begin
for j:=2 to n2 do begin

манипулирование значениями массива:

if MATRIX[i,j]<0 then MATRIX[i,j]:=MATRIX[i,j]+MATRIX[i,j+1]; ...