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

const
  n=5;
type
  arr=array[1..n, 1..n] of integer;
var
  a,b,c: arr;
  i,j: integer;
  input1,input2,output: text;
  flag: boolean;
begin
  randomize;
  assign(input1,'c:\a.txt');
  reset(input1);
  assign(input2,'c:\b.txt');
  reset(input2);
  assign(output,'c:\c.txt');
  rewrite(output);
  if random(2)=0 then flag:=true
    else flag:=false;
  writeln('flag = ',flag);
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      read(input1,a[i,j]);
      read(input2,b[i,j]);
      if flag then c[i,j]:=a[i,j]+b[i,j]
        else c[i,j]:=a[i,j]-b[i,j];
      write(output,c[i,j]:4);
    end;
    writeln(output);
  end;
  close(input1);
  close(input2);
  close(output);
  writeln('Полученная матрица:');
  for i:=1 to n do
  begin
    for j:=1 to n do
      write(c[i,j]:4);
    writeln;
  end;
  readln;
end.

 program ert;
 uses crt;
  var input1,input2,output:text;
      a,b,c:array [1..100, 1..100]of longint;
      i,j,m,n,u:longint;
      pt1,pt2,pt3:string;
  begin
  writeln('vvedite put k faylu s 1-oy matricey');
  readln(pt1);
  assign(input1,pt1);
  reset(input1);
  writeln('vvedite put k faylu so 2-y matricey');
  readln(pt2);
  assign(input2,pt2);
  reset(input2);
  writeln('vvedite put k faylu vivoda ');
  readln(pt3);
  assign(output,pt3);
  rewrite(output);
ReadLn(input1, n, m); {÷èòàåì èç ôàéëà ðàçìåðíîñòü ìàòðèöû}
for i:=1 to n do begin
for j:=1 to m do
Read (input1, a[i,j]); {ñ÷èòûâàíèå ñòðîêè}
Readln(input1); {ïåðåõîä íà íîâóþ ñòðîêó}
end;
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j],' ');
writeln;
end;
writeln;
ReadLn(input2, n, m);
for i:=1 to n do begin
for j:=1 to m do
Read (input2, b[i,j]); {ñ÷èòûâàíèå ñòðîêè}
Readln(input2); {ïåðåõîä íà íîâóþ ñòðîêó}
end;
for i:=1 to n do
begin
for j:=1 to m do
write(b[i,j],' ');
writeln;
end;
repeat
writeln('flag true\false? 1\0');
readln(u);
until (u=1) or (u=0);
if u=1 then
begin
for i:=1 to n do
begin
for j:=1 to m do
c[i,j]:=a[i,j]+b[i,j];
end;
writeln;
for i:=1 to n do
begin
for j:=1 to m do
write(c[i,j],' ');
writeln;
end;
end
else
begin
for i:=1 to n do
begin
for j:=1 to m do
c[i,j]:=a[i,j]-b[i,j];
end;
writeln;
for i:=1 to n do
begin
for j:=1 to m do
write(c[i,j],' ');
writeln;
end;
end;
close(input1);
close(input2);
close(output);
end.

program ert;
 
uses
  crt;
 
var
  txt: text;
  a, b, c: array [1..100, 1..100] of longint;
  i, j, m, n, u: longint;
  pt: string;
 
begin
  writeln('vvedite put k faylu');
  readln(pt);
  assign(txt, pt);
  reset(txt);
  readln(txt,n,m); 
  for i:=1 to n do
  begin
    for j:=1 to m do
      read(txt, a[i,j]);
    readln(txt);
  end;
  writeln('Первый массив:');
  for i:=1 to n do
  begin
    for j:=1 to m do
      write(a[i,j]:4);
    writeln;
  end;
  for i:=1 to n do
  begin
    for j:=1 to m do
      read(txt, b[i,j]);
    readln(txt);
  end;
  writeln('Второй массив:');
  for i:=1 to n do
  begin
    for j:=1 to m do
      write(b[i,j]:4);
    writeln;
  end;
  
  repeat
    writeln('flag true\false? 1\0');
    readln(u);
  until (u = 1) or (u = 0);
  
  writeln('Третий массив:');
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      if u=1 then c[i,j]:=a[i,j]+b[i,j]
        else c[i,j]:=a[i,j]-b[i,j];
      write(c[i,j]:4);
    end;
    writeln;
  end;
  close(txt);
  
  append(txt);
  writeln(txt);
  for i:=1 to n do
  begin
    for j:=1 to m do
      write(txt,c[i,j]:4);
    writeln(txt);
  end;
  close(txt);
  readln;
end.

program ert;
 
//uses
//  crt;
 
var
  txt: text;
  a, b, c: array [1..100, 1..100] of longint;
  i, j, m, n, u, x: longint;
  pt: string;
 
begin
  writeln('vvedite put k faylu');
  readln(pt);
  assign(txt, pt);
  reset(txt);
  //readln(txt,n,m); 
  n:=0; m:=0;
  while not eoln(txt) do
  begin
    read(txt,x);
    inc(m);
  end;
  while not eof(txt) do
  begin
    readln(txt);
    inc(n);
  end;
  n:=n div 2;
  
  close(txt);
  reset(txt);
  
  for i:=1 to n do
  begin
    for j:=1 to m do
      read(txt, a[i,j]);
    readln(txt);
  end;
  writeln('Первый массив:');
  for i:=1 to n do
  begin
    for j:=1 to m do
      write(a[i,j]:4);
    writeln;
  end;
  for i:=1 to n do
  begin
    for j:=1 to m do
      read(txt, b[i,j]);
    readln(txt);
  end;
  writeln('Второй массив:');
  for i:=1 to n do
  begin
    for j:=1 to m do
      write(b[i,j]:4);
    writeln;
  end;
  
  repeat
    writeln('flag true\false? 1\0');
    readln(u);
  until (u = 1) or (u = 0);
  
  writeln('Третий массив:');
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      if u=1 then c[i,j]:=a[i,j]+b[i,j]
        else c[i,j]:=a[i,j]-b[i,j];
      write(c[i,j]:4);
    end;
    writeln;
  end;
  close(txt);
  
  append(txt);
  writeln(txt);
  for i:=1 to n do
  begin
    for j:=1 to m do
      write(txt,c[i,j]:4);
    writeln(txt);
  end;
  close(txt);
  readln;
end.