Пример 3.

{Инициализация массива выполняется с использованием типизированной константы-массив}

Program Ex3;

Uses Crt;

Const

{Определение размерности массива}

N=3; M=5;

{Обьявление и инициализация массива}

X: Array[1..N,1..M] of Real = ((3.5, 5.5, 3.5, 64.39, 4.5),

(7.34, 6.45,7.67, 4.67,12.34),

(12.23, 3.45, 2.45, 5.4, 6.77));

Var

i, j, Imax, Jmax: Integer;

{Для поиска максимального элемента вводятся следующие переменные:}

{Imax – строка максимального элемента}

{Jmax – столбец максимального элемента}

Begin

{Поиск максимального элемента}

Imax:=1; Jmax:=1;

For i:=1 to N do

For j:=1 to M do

If X[i,j]>X[Imax, Jmax] then

begin

Imax:=i;

Jmax:=j

end;

{Вывод исходного массива и результатов поиска}

ClrScr;

Writeln(‘Исходный массив:’);

For i:=1 to N do

begin

For j:=1 to M do Write (X[i,j]:6:2);

Writeln

end;

Writeln;

Writeln(‘Максимальный элемент массива=’, X[Imax,Jmax]);

Writeln(‘Строка максимального элемента массива=’,Imax);

Writeln(‘Столбец максимального элемента массива=’,Jmax)

End.

Задание №1

Дана матрица размерности. Найти сумму элементов матрицы, расположенных в строках с отрицательным элементом на главной диагонали и произведение элементов, расположенных в строках с отрицательным элементом в последнем столбце. (Главную диагональ матрицы образуют элементы, для которых индекс строкиiравен индексу столбцаj. Например, элементысоставляют главную диагональ матрицыразмерности).

Задание №2

Дана матрица размерности. Если ниже главной диагонали матрицы нет ни одного отрицательного элемента, изменить матрицу, умножив каждый ее элемент на находящийся с ним в одной строке элемент главной диагонали, иначе каждый элемент матрицы умножить на максимальный элемент соответствующей строки. (Определение главной диагонали матрицы см. задание №1).

Задание №3

Дана матрица размерности. Определить номера столбцов, для которых знаки элементов не совпадают. Определить номера строк, элементы которых имеют совпадающие значения. Подсчитать количество таких строк и столбцов.

Задание №4

Дана матрица размерности. Построить новые матрицыипо следующему правилу:

, где

Задание №5

По векторам размерностипостроить матрицуразмерностис элементами:

где

Задание №6

Дана матрица размерности. Расположить элементы матрицы так, чтобы на главной диагонали были максимальные элементы строк (путем обмена соответствующих элементов строк). (Определение главной диагонали матрицы см. задание №1).

Задание №7

Дана матрица размерности. Расположить элементы матрицы так, чтобы на побочной диагонали были минимальные элементы столбцов (путем обмена соответствующих элементов столбцов). (Побочную диагональ матрицы образуют элементы, для которых индекс строкиiсоответствует индексу столбцаj, полученному по следующему правилуj=n-i+1. Например, элементысоставляют побочную диагональ матрицыразмерности).

Задание №8

Дана матрица размерности. Определить номера элементов строк матрицы, сумма которых со следующим элементом той же строки максимальна. Определить номера элементов столбцов матрицы, произведение которых с предыдущим элементом того же столбца минимально.

Задание №9

Дан массив размерности. Выбрать в каждой строке, а затем и в каждом столбце по одному элементу таким образом, чтобы сумма была минимальной.

Задание №10

Дан массив размерности. Найти минимальный элемент среди элементов, расположенных ниже главной диагонали. (Определение главной диагонали см. задание №1).

Задание №11

Дана матрица размерности. Найти максимум среди сумм модулей элементов диагоналей, параллельных побочной диагонали матрицы. (Определение побочной диагонали см. задание №7).

Задание №12

Дана матрица размерности. Составить программу проверки выполнения следующих условий:

1) для всех выполняется условие;

2) соответствует ли расположение элементов следующему правилу: сначала идет элементов 1-ой строки; затемэлемент 2-ой строки, начиная со второго элемента, и т.д. (в последней-ой строке есть только-ый элемент; все остальные элементы матрицы равны нулю);

3) соответствует ли расположение элементов следующему правилу: сначала идет элементов 1-ой строки; затемэлемент 2-ой строки, начиная с первого элемента, и т.д. (в последней-ой строке есть только 1-ый элемент; все остальные элементы матрицы равны нулю).