Writeln;

End;

For i:=1 to n do

Begin

T:= 1000; { T:=A[ i, 1 ]; P:=1; }

For j:=1 to m do

Begin

If A[ i, j ]<T then

Begin

T:=A[ i, j ];

P:=j;

End;

End;

Writeln(' v', i,' -toy stroke min =', T,' ego nomer = ', P);

End;

Writeln;

Readln;

Readln;

End.

Задача № 13. Нахождение максимального элемента в каждой строке матрицы А

Константы: n - количество строк.

m - количество столбцов.

Входные данные: А – матрица.

Рабочие переменные: i – внешний индекс элемента матрицы

j – внутренний индекс элемента матрицы.

Выходные данные: Max –переменная, в которой находим максимальный элемент матрицы.

k – переменная, в которой находим номер максимального элемента в каждой строке матрицы.

Входные данные: А – матрица.

А =

m = 4 – заданное число

Внешний цикл

П. ц. – i

Н. з. – 1

К. з. – 2

h - 1

Внутренний цикл:

П. ц. – j

Н. з. – 1

К. з. – 4

h – 1

Прокрутка:

i = 1, 1≤2, да j = 1, 1≤4 да А₁₁ = 1, 1>4, нет j = 1+1

j = 2, 2≤4 да А12 = 7, 7>4, да k = 0+1, j = 2+1

j = 3, 3≤4 да А₁₃ = 2, 2>4, нет j = 3+1

j = 4, 4≤4 да А₁₄ = 6, 6>4, да k = 1+1, j = 4+1

j = 5, 5≤4 нет → i= 1+1

i = 2, 2≤2, да j = 1, 1≤4 да A₂₁ = 9, 9>4, да k = 2+1, j = 1+1

j = 2, 2≤4 да А₂₂ = 3, 3>4, нет j = 2+1

j = 3, 3≤4 да А₂₃ = 8, 8>4, да k = 3+1, j = 3+1

j = 4, 4≤4 да А₂₄ = 5, 5>4, , да k = 4+1, j = 4+1

j = 5, 5≤4 нет → i = 2+1

i = 3, 3≤2, нет вывод k =5 Stop