Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Даны 2 массива. Найти среднее арифметическое элементов каждого и сравнить эти значения:)

Ответ оставил Гость

var n,m,i,s1,s2:integer;
p1,p2,p:real;
a,b:array[1..10] of integer;
begin
write(n=);read(n);
write(m=);read(m);writeln;
for i:=1 to n do begin
write(a[,i,]= );
readln(a[i]);
end;
for i:=1 to m do begin
write(b[,i,]= );
readln(b[i]);
end;writeln;
s1:=0;
for i:=1 to n do s1:=s1+a[i];
p1:=s1/n; p1:=int(p1);
writeln(Srednee arifmeticheskoe massiva A=,p1);
s2:=0;
for i:=1 to m do
s2:=s2+b[i];
p2:=s2/m;p2:=int(p2);
writeln(Srednee arifmeticheskoe massiva B=,p2);
p:=p1+p2;
if p1=p2 then write(A=B) else begin
if p1>p2 then write(A>B) else write(Aend;
end.