помогите исправить.
Const
max=20;
type
mat:array[1..max,1..max] of integer;
var
i,j,x,y,s:integer;
min:longint;
procedure vvod_m;
Begin
Writeln('Введите мерность матрици');
Write('i='); readln(i);
Write('j='); readln(j);
Writeln('Введите массив:');
for x:=1 to i do
for y:=1 to j do
Begin
write('a[',x,',',y,']=');
readln(a[x,y]);
End;
End;
begin
vvod_m;
Min:=0;
for y:=1 to j do
begin
s:=0
for x:=1 to i do
begin
s:=s+A[x,y];
if s<min then min:=s;
end;
end;
writeln(‘Минимальная сумма=’, min);
readln;
end.
Добавлено через 15 мин.
не знаю еще как сумму задать. написал ноль. но это по умолчанию неверно.