Даны две тройки вещественных чисел. найти среднее арифметическое максимумов каждой тройки 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.

1/512 мб = 1024/512 кб = 2 кб = 2048 байт = 2048 * 8 бит на 1 символ отводится 2048 * 8 бит / 2048 = 8 бит объём алфавита 2^8 = 256 символов

был уже такой вопрос отвечен.

от себя

скорость обработки, соответственно и обьемы обработки, обработка по требованию в минимальное время, что позволяет сразу использовать результаты в дальнейших операциях, точность рассчетов