program ololo;
 var a,b:array[1..100] of integer; c,d,e,g,n,j:integer;h:real;
 begin
 writeln('Введите количество объектов в массивах А и В = ');read(n);
 for c:=1 to n do
 begin
 a[c]:=random(10);;e:=e+a[c];
 b[c]:=random(10); g:=b[c]+g;
 writeln('a[',c,']= ',a[c]);
 writeln('b[',c,']= ',b[c]);
 end;
 writeln('Средне-арифметическое массива А= ', e/n);
 writeln('Средне-арифметическое массива B= ', g/n);
 h:=(e/n)*(g/n);
 writeln('Произведение среднее-арифметических = ',h)
 end.