Даны два одномерных массива из целых чисел, разной размерности. Найти целую часть среднего арифмитического элементов каждого массива и их сумму.

На языке Pascal.program average_elems;var a, b : array[1..1000] of integer; n, i, m, sum1, sum2 : integer;begin  read(n);  for i:=1 to n do begin    read(a[i]);    sum1 := sum1 + a[i];    end;  read(m);  for i:=1 to m do begin    read(b[i]);    sum2 := sum2 + b[i];    end;  write(sum1 div n, , sum2 div m, , sum1 div n + sum2 div m);end.a, b - первый и второй массивы. n, m - кол-во элементов в массивах a и b соответственно, sum1, sum2 - суммы элементов в первом и втором массивах соответственно.