Помогите срочно! Нужно набрать программу, которая выводит 2 массива и находит сумму...

Question

Помогите срочно!
Нужно набрать программу, которая выводит 2 массива и находит сумму элементов этих массивов.
«Даны два многомерных массива. Найти их разность С=А-В.»

Answer 1

Const n =5;
type
  mas=array[1..n,1..n]of integer;
var
  a,b:mas;
  i,j,sum:integer;
begin
randomize;
sum:=0;
  for i:=1 to n do
      for j:=1 to n do
        a[i,j]:=Random(30);
  for i:=1 to n do
      for j:=1 to n do
        b[i,j]:=Random(30);
  writeln('Первый массив:');
  for i:=1 to n do
    begin
      for j:=1 to n do
        write(a[i,j]:4);
    writeln;
    end;
  writeln;
  writeln('Второй массив:');
  for i:=1 to n do
    begin
      for j:=1 to n do
        write(b[i,j]:4);
    writeln;
    end;
  writeln('Разность двух массивов A-B: ');
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          sum:=sum+a[i,j]+b[i,j];
          write(a[i,j]-b[i,j]:4);
        end;
        writeln;
    end;
    writeln('Сумма элементов двух массивов: ',sum);
end.

Comments

Можно ещё блок схему?