Verified answer

Ответ:

program ArraySumma;

procedure ArrFill (a: array of Integer);

var

 i: Integer;

begin

 for i := Low (a) to High (a) do begin

   a [i] := Random (100);

   Write (a [i], ' ');

 end;

end;

var

 a1, a2: array of Integer;

 n1, n2: Integer;

begin

 Write ('Введите размерность двух массивов: ');

 ReadLn (n1, n2);

 SetLength (a1, n1);

 SetLength (a2, n2);

 Randomize;

 WriteLn;

 WriteLn ('Первый массив:');

 ArrFill (a1);

 WriteLn;

 WriteLn ('Второй массив:');

 ArrFill (a2);

 ReadLn;

end.