Question

Помогите, пожалуйста ♥️ (pascal)

Answer 1

program n1;
var a: array [1..5,1..5] of integer;
i,j, pr,min,min_ind:integer;
begin
writeln('Элементы матрицы');
for i:=1 to 5 do
  for j:=1 to 5 do
    Readln(a[i][j]);
pr:=1;
for i:=1 to 5 do pr:=pr*a[i][1];
min:=pr;
min_ind:=1;for i:=2 to 5 do begin
  pr:=1;
  for j:=1 to 5 do pr:=pr*a[j][i];
  if(pr<min) then begin
    min:=pr;
    min_ind:=i;
  end; 
end;writeln('Минимальный столбец под номером ', min_ind);end.