Информатика 11 класс. найти разность между максимальным и средним арифметическим элементами квадратной матрицы, заданной случайным образом. этапы решения : описать переменные; сформировать массив; напечатать его; найти максимальный (минимальный) элемент; найти сумму всех элементов; найти среднее арифметическое, вычислить нужную разность ; напечатать результат.
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('Количество строк/столбцов в матрице:');
Writeln('*** Исходная матрица ***');
var a:=MatrRandom(n,n,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
var s:=a.ElementsByRow; // последовательность не хранится в памяти
Writeln('Искомая разность равна ',s.Max-s.Average:0:5)
end.
Пример
Количество строк/столбцов в матрице: 7
*** Исходная матрица ***
-44 -99 13 98 -98 74 -40
-23 65 -41 -39 -56 -5 -7
77 -98 37 74 -60 96 -12
31 66 -99 9 46 -57 78
-25 -79 -48 -18 69 4 60
62 -62 -45 -99 57 -17 -45
89 -96 -16 33 -1 76 -98
Искомая разность равна 102.34694