Найти сумму введённого элемента и минимального элемента на главной диагонали матрицы - Pascal ABC
Формулировка задачи:
Нужно написать программу используя двухмерный массив .
Надо что бы программа вывела сумму элемента ( который мы введём ) и минимального элемента с главной диагонали.
В программе нужно использовать константу N<=100
Также мне дали:
И я не совсем понимаю как это использовать в программе, так что надеюсь на вашу помощь.
Решение задачи: «Найти сумму введённого элемента и минимального элемента на главной диагонали матрицы»
textual
Листинг программы
const n=15; type Vector=array[1..n,1..n] of integer; var a:Vector; i,j,x,mn:integer; begin randomize; writeln('Матрица:'); for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=random(50); write(a[i,j]:3); end; writeln; end; mn:=a[1,1]; for i:=2 to n do if a[i,i]<mn then mn:=a[i,i]; writeln('Минимальный элемент главной диагонали=',mn); write('Введите целое число x='); readln(x); write('Сумма x+mn=',x+mn); end.