1. Написать программу, которая выводит на экран сумму средних арифметических значений двух вещественных массивов из 10 элементов.
2. Написать прогрумму,которая выводит на экран, разность значений двух вещественных массивов из 10 элементов.

Я так понимаю, что "значение массива" - это сумма его элементов. Если это так, то вот решение:1)Var a,b:array[1..10] of real;s,k:real; i:integer;Begin wtiteln('Init A:') for i:=1 to 10 do   begin    readln(k);    a[i]=k;   end; wtiteln('Init B:') for i:=1 to 10 do   begin    readln(k);    b[i]=k;   end; s:=0; k:=0; for i:=1 to 10 do   k:=k+a[i]; k:=k/10; for i:= to 10 do   s:=s+b[i]; s:=(s/10)+k; writeln(s);End.2)Var a,b:array[1..10] of real;r,k:real, i:integer;Begin writeln('Init A:"); for i:=1 to 10 do   begin    readln(k);    a[i]:=k;   end; writeln('Init B:"); for i:=1 to 10 do   begin    readln(k);    b[i]:=k;   end; r:=0 k:=0; for i:=1 to 10 do   k:=k+a[i]; for i:=1 to 10 do   r:=r+b[i]; r:=r-k; writeln(r);End.