Информативны ли для вас следующие сообщения: 1) сколько в слове гласных звуков, столько и слогов, 2) термин "мультимедиа" означает объединение текста, звука и видео в одном документе. ответ обоснуйте
Var max, //максимальный элемент min, //минимальный элемент sum, //сумма всех чисел n, //количество чисел j: integer; Begin write('Введите количество чисел: '); readln(n); write('Введите числа: '); readln(j); max:=j; min:=j; sum:=j; //1-й элемент это мин, макс, и сумма одновременно for var i:=2 to n do begin readln(j); if(j > max) then max:=j else if(j < min) then min:=j; sum:= sum+j; end; sum:= round(sum/n)*min-max; //результирующая формула if sum < 0 then writeln('Результат: ', -sum)//умножаем на -1 если результат<0 else writeln('Результат: ', sum); End.
Я думаю, что имеется в виду среднее по значению Pascal : var arr : array[0..2] of integer; { если числа целые } i, j, t : integer; begin read(arr[0], arr[1], arr[2]); // самый простой это отсортировать массив // в данном случае можно использовать сортировку "пузырьком" for i := 0 to 2 do for j := 0 to 2 do if arr[ j ] > arr[ j + 1] begin t := arr[ j ]; arr[ j ] := arr[ j + 1]; arr[ j + 1 ] := t; end; //Конечно, среднее по значению число будет храниться в элементе arr[1] writeln(arr[1]); end. На случай, если в учебнике просят среднее арифметическое, понятно, что нужно просто вывести ( arr[0] + arr[1] + arr[2] ) / 3 Если есть какие-то вопросы, то можете написать личное сообщение
Второе-да потому что точно описывает термин мультимедиа