Определить индексы наименьшего элемента в каждой строке матрицы - Pascal ABC
Формулировка задачи:
В двумерном массиве М[1..6,1..4]определить индексы наименьшего элемента в каждой строке
Решение задачи: «Определить индексы наименьшего элемента в каждой строке матрицы»
textual
Листинг программы
var m:array [1..6,1..4] of integer; min,min_j,i,j:integer; BEGIN For i:=1 to 6 do //заполняем массив For j:=1 to 4 do m[i,j]:=Random (1000); For i:=1 to 6 do begin //строки min:=MaxInt; For j:=1 to 4 do //столбцы IF m[i,j]<min THEN begin min_j:=j; min:=m[i,j]; end; Writeln (i,' ',min_j); end; END.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д