Var I, j, k, i_max, j_min : Word;

min, max : Integer;

Massiv : Array [1..n, 1..m] Of Integer;

Begin

ClrScr;

Randomize;

For i:=1 To n Do

For j:=1 To m Do

Massiv[i, j]:= Random(mass_max – mass_min + 1) + mass_min;

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

For i:=1 To n Do

Begin

For j:=1 To m Do

Write(Massiv[i, j]:5);

WriteLn;

End;

WriteLn;

For i:=1 To n Do перебираем строки массива

Begin

min:= Massiv[i,1];

j_min:= 1; номер столбца с минимальным элементом в этой строке

For j:=2 To m Do

If (Massiv[i,j] < min) Then

Begin

min:= Massiv[i,j];

j_min:= j;

End;

max:= Massiv[1, j_min]; ищем максимальный элемент в столбце,

i_max:= 1; содержащем минимальный элемент этой строки

For k:=2 To n Do

If (Massiv[k,j_min] > max) Then

Begin

max:= Massiv[k,j_min];

i_max:= k;

End;

If (i = i_max) Then

Begin

WriteLn(‘Номер строки=’,i,

‘ Номер столбца=’,j_min,

‘ Седловая точка=’, Massiv[i, j_min]);

Break;

End;

End; конец цикла по строкам

ReadLn;

End.

17.Задать элементы целочисленного квадратного массиваa_nnслучайными числами, лежащими в диапазоне отmass_minдоmass_max. Исходный массив вывести на экран построчно. Заполнить векторv_k суммами элементов исходного массива, расположенных параллельнопобочнойдиагонали(k = 2n – 1).

Для решения этой задачи рассмотрим исходный массив поэлементно:

a₁₁ a₁₂ a₁₃ a₁₄ . . . a_1n

a₂₁ a₂₂ a₂₃ a₂₄ . . . a_2n

a₃₁ a₃₂ a₃₃ a₃₄ . . . a_3n

. . . . . . . . . . . . .

a_n1 a_n2 a_n3 a_n4 . . . a_nn

Заметим следующую закономерность образования сумм элементов по диагоналям, параллельным побочной:

v₁ = a₁₁ сумма индексов элемента 1 + 1 = 2

v₂ = a₂₁ + a₁₂ сумма индексов элементов 1 + 2 = 3

v₂ = a₃₁ + a₂₂ + a₁₃ сумма индексов элементов 1 + 3 = 4

. . . . . . . . .

v_2n-1 = a_nn сумма индексов элемента n + n = 2n

Таким образом, сумма индексов элементов массива, входящих в сумму элементов, на единицу меньше индекса соответствующего элемента вектора:

Program Primer_17;

Uses WinCrt;

Const n = 5;

k = 2*n - 1;

mass_min = -50;

mass_max = 50;

Var I, j, t : Integer;

Vector : Array [1..K] Of Integer;

a : Array [1..n, 1..n] Of Integer;

Begin

ClrScr;

Randomize;

For i:=1 To n Do

For j:=1 To n Do

a[i, j]:= Random(mass_max – mass_min + 1) + mass_min;

WriteLn;

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

For i:=1 To n Do

Begin

For j:=1 To n Do

Write(a[i, j]:5);

WriteLn;

End;

WriteLn;

For i:=1 To k Do обнуляем выходной вектор

vector [i]:= 0;

For i:=1 To n Do

For j:=1 To n Do

Begin

t:= i + j - 1; определяем индекс элемента вектора

vector[t]:= vector[t] + a[i,j]; вычисляем сумму элементов массива

End;

WriteLn;

WriteLn(‘Полученный вектор’);

WriteLn;

For i:=1 To k Do

Write(vector[i]:5);

WriteLn;

ReadLn;

End.

18.Задать элементы целочисленного квадратного массиваa_nnслучайными числами, лежащими в диапазоне отmass_minдоmass_max. Исходный массив вывести на экран построчно. Заполнить векторv_k суммами элементов исходного массива, расположенных параллельноглавнойдиагонали(k = 2n – 1).

Для решения этой задачи рассмотрим исходный массив поэлементно:

a₁₁ a₁₂ a₁₃ a₁₄ . . . a_1n

a₂₁ a₂₂ a₂₃ a₂₄ . . . a_2n

a₃₁ a₃₂ a₃₃ a₃₄ . . . a_3n

. . . . . . . . . . . . .

a_n1 a_n2 a_n3 a_n4 . . . a_nn

Заменим элементы исходного массива элементами вычисляемого вектора:

v_n v_n-1 v_n-2 v_n-3 . . . v₂ v₁

v_n+1 v_n v_n-1 v_n-2 . . . v₃ v₂

v_n+2 v_n-1 v_n v_n-2 . . . v₄ v₃

. . . . . . . . . . . . . . . .

V_2n-1 v_2n-2 v_2n-3 v_2n-4 . . . v_n+1 v_n

Алгоритм очевиден:

Program Primer_18;

Uses WinCrt;

Const n = 5;

k = 2*n - 1;

mass_min = -50;

mass_max = 50;