Для матрицы A(n×n) определить разность между максимальными элементами верхней и нижней треугольных матриц
10-11 класс
|
Паскаль,помогите пожалуйста,уже час раздумываю над программой
const
n = 8;
var
i, j, umax, lmax: integer;
a: array[1..n, 1..n] of integer;
begin
Randomize;
writeln('Исходный массив');
for i := 1 to n do
begin
for j := 1 to n do
begin
a[i, j] := Random(40) - 20;
write(a[i, j]:4)
end;
writeln;
end;
umax := -100;
for i := 1 to n do
for j := i to n do
if umax < a[i, j] then umax := a[i, j];
lmax := -100;
for i := 1 to n do
for j := 1 to i do
if lmax < a[i, j] then lmax := a[i, j];
writeln('Разность максимумов равна ', umax - lmax)
end.
Тестовое решение:
Исходный массив
-5 18 -13 1 -16 5 0 -13
4 -18 -17 -14 2 10 -2 -15
-15 -8 -6 -16 -10 -12 -18 -17
-18 6 11 -5 4 -6 -1 1
10 14 3 -7 2 11 10 -1
6 -2 -20 1 4 9 13 -4
-9 -7 4 -6 -12 3 1 -14
15 -16 -1 -3 13 -15 3 -10
Разность максимумов равна 3
Скажите, как выглядят нижняя и верхняя треугольные матрицы. Тогда, наверное, помогу
ну треугольная матрица это вроде как половина квадратной матрицы,под которой остальные числа равны нулю,но второй аргумент здесь наверное можно не учитывать
Другие вопросы из категории
Читайте также
Сформировать целочисленный массив из 15 элементов. Элементы массива ввести как случайные числа в диапазоне от –8 до 10. Отсортировать массив по возрастанию методом выбора и найти наибольшее значение разности между соседними элементами.
дан массив B из K элементов. Определить будет ли максимальный элемент чётным.
Написать программу, выполняющую поиск максимальных элементов в каждой строке заданной матрицы.
Написать программу, выполняющую поиск максимальных элементов в каждой строке заданной матрицы.