Алгоритмические языки и программирование. Игошина Л.В. - 45 стр.

   Randomize; { Стандартная процедура см. теорию}
     { Заполнение матрицы случайными числами}
    for i:=1 to n do
    for j:=1 to k do
       M[i,j]:=Random(500);
   writeln(' Элементы заполненной матрицы');
     for i:=1 to n do
       begin
        for j:=1 to k do
        write(M[i,j]:4);     writeln;
       end;
   writeln(' Сумма элементов в каждой строке');
   write(' Hомера строк : ');
     for i:=1 to n do
     write(i,' ');writeln;
   write(' Сумма в строке : ');
     for i:=1 to n do
        begin
         Sum[i]:=0;
       for j:=1 to k do
         Sum[i]:=Sum[i]+M[i,j];
         write(Sum[i], ' ');
        end;writeln;
     { Поиск минимального значения}
      Min:=Sum[1]; imin:=1;
      for i:=1 to n do
      if Sum[i] <= Min then
               begin
                Min:=Sum[i]; imin:=i;
               end;
      writeln(' Минимальная сумма = ',Min,' в строке ',imin);
      readln;
   END.
                                    Варианты заданий

      1. В прямоугольной матрице размером Т*М, имеющей имя МАТР
содержаться целые числа. Т - число строк, М - число столбцов. Ввести
элементы матрицы с клавиатуры. Определить и вывести на экран сумму
элементов в каждой строке. Определить строку с максимальным значением
этой суммы и вывести ее номер на экран.
      2. В прямоугольной матрице размером М*Т, имеющей имя МАS
содержаться целые числа. М - число строк, Т - число столбцов. Ввести
элементы матрицы с клавиатуры. Определить и вывести на экран