Var i, j, sum, max, number_of_line: integer; a: array [1..10, 1..10] of integer;
begin
randomize;
max := 0;
number_of_line := 1;
for i := 1 to 10 do
for j := 1 to 10 do
begin
a[i, j] := random(1000); {Для удобства проверки работоспособности массив заполняется рандомно}
if max < a[i, j]
then
begin
max := a[i, j];
number_of_line := i;
end;
end;
for i := 1 to 10 do
begin
for j := 1 to 10 do
write(a[i, j], ' '); {Для проверки организован вывод всей матрицы}
writeln;
end;
sum := 0;
for j := 1 to 10 do
sum := sum + a[number_of_line, j]; {Собственно, сам подсчёт суммы}
writeln(sum);
end.
-------------------------------
Блок-схема не полностью видна, но программа будет очень похожа на вышенаписанную