Дан массив a(10). определить где среднее арифметическое больше в 1 половине или во второй.

PascalABC.NET

begin

 var a:= ArrRandom(10, -99, 99);

 a.Println;

 var m1 := a[:5].Average;

 var m2 := a[5:].Average;

 Println(m1, m2);

 if m1 > m2 then

   Writeln('В первой половине')

 else if m2 > m1 then

   Writeln('Во второй половине')

 else

   Writeln('Средние арифметические равны')

end.

const n = 10; //В константе n указываем количество элементов в массиве

var a:array[1..n]of integer;

i,s1,s2:integer;

begin

write('Массив: '); //Вывод на экран слова "Массив: "

for i:= 1 to n do //Цикл с параметром для последовательной обработки массива

begin

a[i]:= random(90)+10; //Заполнение массива случайными числами из промежутка [10,99]

if i<6 then s1:=s1+a[i] else s2:=s2+a[i];//Сложение первых 5 элементов массива и последних 5 элементов массива

write(a[i],'  ') //Вывод на экран массива в строку

end;

writeln; //Переход на новыю строку

//сравниваем средние арифметические и пишем выводы

if s1/5=s2/5 then write ('Cреднее арифметическое первой и во второй половин массива равны ',s1/5,' = ',s2/5) else

if s1/5>s2/5 then write ('Cреднее арифметическое первой половины массива больше среднего арифметического второй половины массива ',s1/5,' > ',s2/5) else  

write ('Cреднее арифметическое второй половины массива больше среднего арифметического первой половины массива ',s2/5,' > ',s1/5)

end.