Сменить знаки у элементов матрицы B[N,M]

[Анжела33]

Сменить знаки у элементов матрицы B[N,M], лежащих выше главной диагонали и имеющих четную сумму индексов.
Программу нужно составить таким образом, чтобы она была применима для массивов любых размеров в пределах заданных ограничений: N<10, M<10.

[ZX Spectrum-128]

If (i>j) and ((i+j) mod 2=0) then
  A[i,j]:=(-1)*a[i,j];

[Stilet]

чтобы она была применима для массивов любых размеров

Какой паскаль? Динамические массивы?

[Анжела33]

Паскаль АВС. нет, не динамические

[Stilet]

Понятно. Хотя бы ввод массива покажешь?

[Анжела33]

Var
B:Array [1..N,1..M] of integer;
i,j,a:integer;
Begin
For i:=1 to 5 do
For j:=i+1 to 4 do

[ZX Spectrum-128]

По условию, границы массива нужно ввести. Покажете?

[Анжела33]

вот я и обратилась за помощью, потому что не знаю как оформить эту программу...)

[ZX Spectrum-128]

Подправил ввод

Var
  B:array [1..10,1..10] of integer;
  I,j,n,m:integer;
Begin
   Readln(n);
   Readln(m);
  For i:=1 to n do
    For j:=1 to m do
      Readln(b[i,j]);

[Анжела33]

спасибо) а дальше? если не сложно...