Question

Помогите пожалуйста нужно написать программу на Паскале которая построит матрицу 10 на 10 случайными троичными числами и найдёт номер строки на которой сумма элементов будет минимальна

Answer 1

var

 a: array[1..10, 1..10] of Integer;

 i, j, cursum, minsum, ind_minsum: Integer;

 

begin

 Randomize;

 for i := 1 to 10 do

   for j := 1 to 10 do

     a[i, j] := Random(900) + 100;

   

 cursum := 0;

 for i := 1 to 10 do

   cursum := cursum + a[1, i];

 

 minsum := cursum;

 ind_minsum := 1;

 

 for i := 2 to 10 do begin

   cursum := 0;

   for j := 1 to 10 do

     cursum := cursum + a[1, i];

   if cursum < minsum then begin

     minsum := cursum;

     ind_minsum := i;

   end;

 end;

   

 for i := 1 to 10 do begin

   for j := 1 to 10 do

     Write(a[i, j], ' ');

   WriteLn;

 end;

 

 WriteLn('минимальная сумма элементов в строке номер ', ind_minsum);

end.