Вычислить в матрице суммы положительных элементов и поместить значения на главную диагональ (Pascal)

[Caimans]

Всем привет. Помогите решить задачу (Pascal)
В заданной матрице Y(N,N) (N10) вычислить суммы положительных элементов каждого столбца и поместить полученные значения на главную диагональ. Напечатать наименьшую из сумм.

[Stilet]

Ввод матрицы показать сможешь?

[Caimans]

Program matritsa;
Var y:array[1..10,1..10] of real;
i,j,n:integer;
s,smin:real;
begin
Write('n=');
Readln(n);
For i:=1 to n do
For j:= 1 to n do
Readln(y[i,j]);
For i:=1 to n do begin
For j:=1 to n do
Write(y[i,j],' ');Writeln;end;
s:=0;
For j:=1 to n do
if y[i,j]>0 then s:=s+y[i,j]; // поиск суммы положительных элементов каждого столбца
...// замена элементов главной диагонали суммами каждого столбца
smin:=999;
For i:=1 to n do
For j:=1 to n do
if s<smin then smin:=s; Writeln('smin=',smin); //поиск и вывод наименьшей суммы
For i:=1 to n do begin
For j:=1 to n do
Write(y[i,j],' ');Writeln;end; end.

Вот сам код, не могу сделать замену элементов главной диагонали

[Аватар]

В основном так

smin:=-1;
For i:=1 to n do begin
  s:=0;
  For j:=1 to n do if y[j,i]>0 then s:=s+y[j,i]; 
  y[i,i]:=s;
  if (smin=-1) or (smin>s) then smin:=s;
end;

[Caimans]

Сообщение от Аватар

В основном так

smin:=-1;
For i:=1 to n do begin
  s:=0;
  For j:=1 to n do if y[j,i]>0 then s:=s+y[j,i]; 
  y[i,i]:=s;
  if (smin=-1) or (smin>s) then smin:=s;
end;

Можно попросить прокомментировать? Не особо понятно как происходит

[Serge_Bliznykov]

smin:=-1;  // отметим минимальную сумму как ещё не заполненную ни разу

For i:=1 to n do begin // цикл по всем столбцам матрицы
  s:=0;  // обнулим сумму очередной строки
  For j:=1 to n do  // цикл по элементам строки I-го столбца
     if y[j,i]>0 then  // если элемент j,i положительный, то
           s:=s+y[j,i];   // прибавим его к сумме элементов строки
  y[i,i]:=s;  // заменили элемент главной диагонали подсчитанной суммой
  if (smin=-1)  // если минимальную сумму ешё ни разу не присваивали (признак -1)
     or   или 
        (smin>s)  // минимальная сумма больше подсчитанной суммы строки, то
  then smin:=s;   // запомнить подсчитанное значение в качестве минимального
end;

// тут надо вывести smin в качестве минимального значения

так понятней?