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

На языке 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 - суммы элементов в первом и втором массивах соответственно.