Паскаль

[Lucky_]

привет. помогите, пожалуиста, составить программу. или хотя бы блок-схему:
в произвольном двухмерном числовом массиве определить и вывести на экран сумму значений элементов значением для той строки, которая содержит наибольшее минимальное значение.
P.S. уже ничего не соображаю :(((
(выводит только значение 1й строки.)

program komtr6_8;
var A: array [1..5,1..5] of integer;
i,j,sum,k, min, maxmin,n: integer;
begin
for i:= 1 to 5 do
for j:= 1 to 5 do
begin
write ('A[',i,',',j,']=');
readln(A[i,j]);
end;
maxmin:=5;
n:=1;
for j:= 1 to 5 do
begin
min:=5;
for i:= 1 to 5 do
if A[i,j]<min then
min:=A[i,j];
end;
for j:= 1 to 5 do
for i:= 1 to 5 do
if min>= maxmin then
n:= i;
end;
k:=n;
for i:= 1 to 5 do
if i=k then
for j:= 1 to 5 do
sum:= sum+A[i,j];
writeln ('значение',n,'строки равно',sum);
end;
end.

[Abbatik]

попробуй так

program komtr6_8;
var A: array [1..5,1..5] of integer;
min:array[1..5] of integer;
i,j,sum,k,  maxmin,n: integer;
begin
for i:= 1 to 5 do
for j:= 1 to 5 do
begin
write ('A[',i,',',j,']=');
readln(A[i,j]);
end;
maxmin:=0;
n:=1;
for j:= 1 to 5 do
begin
min[i]:=9999;
for i:= 1 to 5 do
if A[i,j]<min[i] then
min[i]:=A[i,j];
end;
for i:= 1 to 5 do
if min[i]>= maxmin then
n:= i;
end;
for j:= 1 to 5 do
sum:= sum+A[n,j];
writeln ('значение ',n,' строки равно',sum);
end;
end.

[Lucky_]

спасибо. только вот на строке
min[i]:=9999;
пишет "несоответствие типа" . почему? типы ведь везде integer, и нигде не делим..

[Lucky_]

( теперь только пятую строку считает...

[Alex21]

Сообщение от Lucky_

спасибо. только вот на строке
min[i]:=9999;
пишет "несоответствие типа" . почему? типы ведь везде integer, и нигде не делим..

min[j]:=9999;