Не могу разобрать с матрицами

[svetlana891]

очень нужна помощь

Дана матрица А(4,4)
Найти произведение элементов среди элементов расположенных на главной диагонали матрицы А.
Помогите решить. пожалуйста

[DM_bite]

program xd;
const n=4;
var a:array [1..n,1..n] of integer;
i,j,pr: integer;
begin
pr:= 1;
for i:= 1 to n do
 for j:= 1 to n do
  begin
  ReadLn(a[i,j]);
  if i=j then pr:= pr*a[i,j];
  end;
  WriteLn(pr);
  ReadLn;
  end.

[svetlana891]

Найти минимальный элемент в 3-й строке матрицы.
Поменять местами найденный минимальный элемент и значение S.

Огромное спасибо

Спасибо большое

помогите пожалуйста решить дальше. ПОЖАЛУЙСТА

Найти минимальный элемент в 3-й строке матрицы.
Поменять местами найденный минимальный элемент и значение S.

[DM_bite]

Найти минимальный элемент в 3-й строке матрицы.
Поменять местами найденный минимальный элемент и значение S.

program xd;
const n=4;
var a:array [1..n,1..n] of integer;
i,j,S,min,index,new: integer;
begin
min:= 100;
ReadLn(S);
for i:= 1 to n do
 for j:= 1 to n do
  begin
  ReadLn(a[i,j]);
  end;
for j:= 1 to n do
  begin
  if a[3,j]<min then
  begin
 min:= a[3,j];
 index:= j;
  end;
  end;
new:= S;
S:= a[3,index];
a[3,index]:= new;
end.

Если ошибки - поправьте. Писал на скорую руку и без Паскаля.

[svetlana891]

Работает. Спасибо ещё раз. Очень помог