Помогите написать код в лазарусе

[Марфа46]

Двумерный массив нужен

Даны две матрицы одинаковой размерности. Найти сумму или разность этих матриц в зависимости от значения параметра flag.

[digitalis]

http://vmatematika.ru/algebra/linejn...matricami.html
Читать. Если и теперь непонятно - в деканат писа'ть заяву об отчислении. Форму можно найти в инете.

const M =5 ; N = 9 ;
var i,j: integer; mas1,mas2,mas3: array [1..M,1..N] of double ;
begin
  // Тут кто-то заполняет всякой фигнёй массивы mas1 и mas2 и выставляет нужный flag.
for i:=1 to M do
  for j:= 1 to N do 
     if flag = 0 then mas3[i,j] := mas1[i,j] + mas2[i,j] else mas3[i,j] := mas1[i,j] - mas2[i,j] ;
  // Тут кто-то выводит получившийся массив mas3.
end ;

Что-то добрый я сегодня. Мабудь, к заморозкам.
Можно так:

var i,j: integer; mas1,mas2,mas3: array [1..M,1..N] of double ; znak: double ;
begin
  // Тут кто-то заполняет всякой фигнёй массивы mas1 и mas2 и выставляет нужный flag.
if flag = 0 then znak := 1.0 else znak := -1.0;
for i:=1 to M do
  for j:= 1 to N do 
     mas3[i,j] := mas1[i,j] + znak * mas2[i,j] ;