Question

Здравствуйте, уважаемые эксперты! Прошу вас помочь с написанием кода для программы: Для матрицы из 4 столбцов и 4 строк найти минимальный элемент среди
элементов побочной диагонали и его индексы. Тема задания «Обработка двумерных массивов в системе Lazarus»

Answer 1

Ответ:

program z1;

var a: array [1..4,1..4] of integer;

i,j,k,mi,mj: integer;

begin

mi:=0;

mj:=0;

k:=0;

for i:=1 to 4 do

begin

for j:=1 to 4 do

begin

a[i,j]:=random(90)+10;

write(a[i,j],' ');

if i+j=5 then

begin

if k=0 then

begin

mi:=i;

mj:=j

end;

if a[i,j]<a[mi,mj] then

begin

mi:=i;

mj:=j

end;

k:=1

end

end;

writeln

end;

writeln ('a[',mi,',',mj,']=',a[mi,mj]);

end.