То есть в тесте взять такую матрицу, чтобы максимальный элемент встречался в нескольких столбцах.
Пример теста:
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