Приложение:
uses crt; const m=5;{размер матриц} n=6; var a,b,c:array[1..m,1..n] of integer;{тип матриц} i,j:integer; begin clrscr; randomize; writeln('Matrica A:'); for i:=1 to m do {сгенерируем и выведем матрису А} begin for j:=1 to n do begin a[i,j]:=random(20)-9; write(a[i,j]:4); end; writeln; end; writeln('Matrica B:'); for i:=1 to m do{сгенерируем и выведем матрису В} begin for j:=1 to n do begin b[i,j]:=random(20)-9; write(b[i,j]:4); end; writeln; end; writeln('Matrica C=A+B:'); for i:=1 to m do begin for j:=1 to n do begin c[i,j]:=a[i,j]+b[i,j];{сложим матрицы} write(c[i,j]:4); end; writeln; end; writeln('Izmenennaya matrica C:'); for i:=1 to m do begin for j:=1 to n do begin {нечетные положительные превратим в отрицательные, а четные отрицательные-в положительные} if (c[i,j]>0)and(c[i,j] mod 2<>0) then c[i,j]:=-c[i,j] else if (c[i,j]<0)and(c[i,j] mod 2=0) then c[i,j]:=-c[i,j]; write(c[i,j]:4); end; writeln; end; readln end.