Pascal Задачи решение задач на одномерные массивы

Question

Даны два массива целых чисел A и B, содержащие
соответственно n и m элементов (самостоятельно задать значения
n>5 и m>10). Среди элементов этих массивов найти наибольший
элемент и место его расположения (в каком массиве он
находится). помогите решить плиз.

user_24751000 · Accepted Answer

program q222118069;
type
 TDynArray = array of Integer;
function Max(a: TDynArray): Integer;
var
 i: Integer;
begin
 Max := Low(a);
 for i := Low(a) to High(a) do
  if a[i] > a[Max] then
   Max := i;
 Max := a[Max];
end;
procedure RandAndPrint(var a: TDynArray; n: Integer);
var
 i: Integer;
begin
 SetLength(a, n);
 for i := Low(a) to High(a) do
 begin
  a[i] := Random(101) - 50;
  Write(a[i]:4);
 end;
 WriteLn;
end;
var
 n, m: Integer;
 a, b: TDynArray;
begin
 Randomize;
 ReadLn(n, m);
 RandAndPrint(a, n);
 RandAndPrint(b, m);
 if Max(a) > Max(b) then
  WriteLn(Max(a), '(A)')
 else
  WriteLn(Max(b), '(B)');
end.