Даны две тройки вещественных чисел. найти среднее арифметическое максимумов каждой тройки p. s писать программу на базе paskalabc. net

// pascalabc.net 3.2, сборка 1353 от 27.11.2016 // внимание! если программа не работает, обновите версию! begin   var m1: =readseqreal('первая тройка: ',3).max;   var m2: =readseqreal('вторая тройка: ',3).max;   writeln('среднее арифметическое максимумов равно ',(m1+m2)/2) end. пример первая тройка: 5.2 7.4 6.1 вторая тройка: -4.2 5 7 среднее арифметическое максимумов равно 7.2

Вроде как-то так: var   a1,a2,a3,a4,a5,a6: real; function sr(a1,a2,a3: real): real; begin   if ((a1< =a2) and (a1> =a3)) or ((a1< =a3) and (a1> =a2)) then sr: =a1 else   if ((a3< =a2) and (a3> =a1)) or ((a3< =a1) and (a3> =a2)) then sr: =a3 else     sr: =a2; end; begin   write('введите две тройки чисел: ');   readln(a1,a2,a3,a4,a5,a6);   writeln('среднее арифметическое 2-х средних чисел =',(sr(a1,a2,a3)+sr(a4,a5,a6))/2: 0: 4); end.

program xxx;

    var i, n : integer;

              a, s : real;

                    b : array [1..20] of real;

begin

  writeln('введите число а=');

  readln(a);

  writeln('введите размерность массива n=');

  readln(n);

  write('введите элементы массива b: ');

  for i: =1 to n do

        readln(b[i]);

  writeln('исходный массив b: ');

  for i: =1 to n do

        writeln(b[i]);

  s: =0;

  for i: =1 to n do

      if b[i] > a then s: =s+b[i];

  writeln('сумма элементов =', s);

  readln

end.

var

i,j,k: integer;

a,b,c: array [1..30] of integer;

begin

randomize;

j: =0;

k: =0;

for i: =1 to 30 do

begin

a[i]: =random(80)-30;

if a[i] mod 2 =0 then

begin

j: =j+1;

b[j]: =a[i]

end

end;

for i: =30 downto 1 do

if a[i]< 0 then

begin

k: =k+1;

c[k]: =a[i];

end;

for i: =1 to j do

writeln(b[i]);

for i: =1 to k do

writeln(c[i]);

end.