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

ответ:

var x: array [0..14] of integer;

    i,r1,r2,p,o: integer;

begin

r1: =0; //сумма пол-ых элементов

r2: =0; //сумма отр-ых элементов

p: =0; //счетчик положительных

o: =0; //счетчик отрицательных

    for i: =0 to 14 do

        begin

        //ввод массива

        write('x[',i,']= ');

        readln(x[i]);

        if x[i]> 0 then  

            begin

            r1: =r1+x[i]; //считаем пол-е элементы

            p: =p+1; //увеличиваем счетчик

            end;

        if x[i]< 0 then

            begin

            r2: =r2+x[i]; //считаем отр-ные элементы

            o: =o+1; //увеличиваем счетчик

            end;

        end;

writeln('среднее арифметическое пол-ых элементов: ', r1/p: 5: 2);        

writeln('среднее арифметическое от-ых элементов: ', r2/o: 5: 2);

if (abs(r1/p)> abs(r2/o)) then writeln(r1/p: 5: 2, ' больше по абс. величине, чем ', r2/o: 5: 2)

else writeln(r2/o: 5: 2, ' больше по абс. величине, чем ', r1/p: 5: 2);                

end.

объяснение: