Дана матрица n*m, состоящая из натуральных чисел. Найти в строках самые правые наименьшие элементы и определить их местоположение

Question

Информатика

Людуша

23 января, 19:29

Дана матрица n*m, состоящая из натуральных чисел. Найти в строках самые правые наименьшие элементы и определить их местоположение

+5

Ответы (1)

Знаете ответ на вопрос?

Потапий · Answer 1

Const nx=30; mx=30; var r:array[1 ... nx, 1 ... mx] of integer; i, j, n, m, k, min:integer;

beginrandomize; write ('Введите n и m: ') ; readln (n, m) ;

writeln ('Исходная матрица: ') ; for i:=1 to n dobeginfor j:=1 to m dobeginr[i, j]:=random (78) - 17; write (r[i, j]:4) ; end; writeln; end; min:=100; for i:=1 to n do beginfor j:=1 to m do beginif min > r[i, j] then beginmin : = r[i, j]; k:=j; end; end; write (' min = ':8, min:4,' k = ', k:3) ; writeln; min:=100; k:=0; end; end.