Question

Даны два одномерных массива. Написать функцию, которая определит, среднее арифметическое значение какого массива больше

Answer 1

function srarifm;
var mas1,mas2 : array[1..100000] of longint;
i,n1,n2 : longint;
sum1,sum2:real;
begin
 sum1:=0; sum2:=0;
 for i:=1 to n1 do begin
  sum1:=sum1+mas1[i];
 end;
 for i:=1 to n2 do begin
  sum2:=sum2+mas2[i];
 end;
if sum1/n1>sum2/n2 then writeln(1) else if sum2/n2>sum1/n1 then writeln(2) else writeln(=)
end;

Ну вроде так... Хотя ничего не обещаю)