Замечание: в следующих упражнениях
исходные данные следует присваивать или использовать
константы, ввод с клавиатуры НЕ нужен.
1. Подсчитать сумму элементов над главной диагональю
квадратной матрицы и под ней.
Пример.
const CMAX = 3; RMAX = 3; m : array [1..RMAX, 1..CMAX] of Integer = (( 3, -2, 1), ( 9, 4, 6), (-1, 8, 5)); var row, col : Byte; s : Integer; begin for row := 1 to RMAX do begin for col := 1 to CMAX do begin Write(m[row, col]:4); end; WriteLn; end; s := 0; for row := 1 to RMAX do begin for col := 1 to CMAX do begin if (row < col) then s := s + m[row, col]; end; end; WriteLn; WriteLn('Над главной диагональю s = ', s); s := 0; for row := 1 to RMAX do begin for col := 1 to CMAX do begin if (row > col) then s := s + m[row, col]; end; end; WriteLn; WriteLn('Под главной диагональю s = ', s); end.
2. Определить максимальный и минимальный элементы двумерного
массива и их индексы.
3. Заполнить одномерный массив случайными неповторяющимися
числами.
4. Расположить строки двумерного массива в порядке возрастания
сумм элементов в них.
5. Заполнить одномерный массив случайными числами
из интервала [-10, 10]. Упорядочить массив
по возрастанию, если сумма элементов массива положительна,
или по убыванию в противном случае.