с клавиатуры вводится матрица n m

Ответ от DaN[гуру]
var w: array [1..100,1..100]of integer; i,j,m,n,a,sum : integer; begin randomize; writeln(\'введите размерность матрицы\'); read(n); write(\' x \'); readln(m); writeln(\'выберите способ задания матрицы\'); writeln(\'1 - с клавиатуры\'); writeln(\'2 - генератор случайных чисел\'); readln(a); if a = 1 then begin writeln(\'выбран способ задания с клавиатуры\'); for i:= 1 to n do for j:=1 to m do readln(w[i,j]); end else begin writeln(\'выбран способ задания с помощью генератора случайных чисел\'); for i:= 1 to n do for j:=1 to m do w[i,j]:=(random(90))-10; end; for i:= 1 to n do begin writeln; for j:=1 to m do write(w[i,j]+\' \'); end; for i:= 1 to n do for j:=1 to m do if w[i,j]<0 then sum:=sum+abs(w[i,j]); for i:= 1 to n do for j:=1 to m do if odd(i)=false and odd(j)=true then w[i,j]:=sum; end.