Найти сумму элементов столбца, содержащего максимальный элемент. Если максимальный элемент встречается несколько раз, то вычислить сумму столбца, в котором максимальный элемент встречается в последний раз -Pascal (Паскаль)

То есть в тесте взять такую матрицу, чтобы максимальный элемент встречался в нескольких столбцах.

Пример теста:

1 2 3 4
7 1 3 0
2 7 4 3
1 3 2 1

Ответ: 13 (второй столбец: 2+1+7+3=13)

type meow=array[1..10,1..10] of integer;
var a:meow;
i,j,m,n:byte;
max,s,k:integer;
begin
writeln('введите число строк и столбцов ');
readln(n);
readln(m);
for i:=1 to n do begin
                 writeln('введите строку ', i);
                 for j:=1 to m do readln (a[i,j]);
                 end;
writeln ('матрица А');
for i:=1 to n do begin
                 for j:=1 to m do write (a[i,j]:4, ' ');
                 writeln;
                 end;
max:=a[1,1];
for i:=1 to n do
  for j:=1 to m do if a[i,j]>=max then begin max:=a[i,j];
                                             k:=j;
                                             end;
  for i:=1 to n do begin
                    for j:=k to k do s:=s+a[i,k];
                    end;
writeln('s=',s);
readln;
end.

Компиляция и выполнение

Free Pascal Compiler version 2.6.2-8 [2014/01/22] for x86_64                                                                                     
Copyright (c) 1993-2012 by Florian Klaempfl and others                                                                                           
Target OS: Linux for x86-64                                                                                                                      
Compiling main.pas                                                                                                                               
main.pas(24,41) Warning: Variable "s" does not seem to be initialized                                                                            
Linking a.out                                                                                                                                    
27 lines compiled, 0.2 sec                                                                                                                       
1 warning(s) issued                                                                                                                              
/usr/bin/ld.bfd: warning: link.res contains output sections; did you forget -T?                                                                  
введите число строк и столбцов                                                                                                                   
4                                                                                                                                                
4                                                                                                                                                
введите строку 1                                                                                                                                 
1                                                                                                                                                
2                                                                                                                                                
3                                                                                                                                                
4                                                                                                                                                
введите строку 2                                                                                                                                 
7                                                                                                                                                
1                                                                                                                                                
3                                                                                                                                                
0                                                                                                                                                
введите строку 3                                                                                                                                 
2                                                                                                                                                
7                                                                                                                                                
4                                                                                                                                                
3                                                                                                                                                
введите строку 4      
1                                                                                                                                                
3                                                                                                                                                
2                                                                                                                                                
1                                                                                                                                                
матрица А                                                                                                                                        
   1    2    3    4                                                                                                                              
   7    1    3    0                                                                                                                              
   2    7    4    3                                                                                                                              
   1    3    2    1                                                                                                                              
s=13 

Поделитесь своим мнением или задайте вопрос