Дан квадратный массив целых положительных чисел 10 х 10

[olchik1980]

Дан квадратный массив целых положительных чисел 10 х 10

Дан квадратный массив целых положительных чисел 10 х 10. Опишите на одном из языков программирования алгоритм вычисления суммы элементов строки, в которой расположен элемент с минимальным значением. Вывести значение суммы на печать. Предполагается, что такой элемент единственный.

 

[Léon1]

:tehnari_ru_1019: Язык программирования?

 

[interacia]

program Matrix2;
var
j,i,Min,num,SUM:integer;
a: array [1..10,1..10] of integer;
begin
// Ввод данных
// Решение
Min:=0;
 for i:=1 to 10 do begin
 write('Введите строку ',i,'):');
 for j:=1 to 10 do
  read(a[i,j]);
end;
// Ответ
Min:=a[1,1];
num:=1;
 for i:=1 to 10 do
 for j:=1 to 10 do
if  Min>a[i,j] then num:=i;
SUM:=0;
for j:=1 to 10 do Sum:=Sum+a[num,j];
writeln;
writeln('Ответ:',Sum);
end.