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.
Answers & Comments
Verified answer
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.