Question

>> Составить программу на Паскале. << Сформировать двухмерный массив A[1..10,1..10] случайными значениями в диапазоне [0..20]. Создать одномерный массив B[1..10], значения элементов которого равны сумме элементов строк двухмерного массива. Массив B вывести на экран.

Answer 1

// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln('*** Исходный массив A ***');
  var a:=MatrRandom(10,10,0,20);
  a.Println(3); Writeln(3*a.ColCount*'-');
  var b:=a.Rows.Select(row->row.Sum).ToArray;
  Writeln('*** Массив B ***'); b.Println
end.

Пример
*** Исходный массив A ***
  9 15  8 17 18 10 17 15 19 18
 18  0 10  5 20  2 16  3 20 17
  1 11  3  8  4 19 14 10 15 13
  4  2 14 11  4 13 10  2  5  3
  8  5 16 19  1  9 14 16 18 10
  2 14 13 19 19 18 11 20 12 20
 16  7  0  6 13 16  7 20  1  7
 12 14 18 16  9 16 16  5  7 16
  4 19 12  5 10 11  9 16 12  6
  1 10 10  6  7  0  5 10  5  5
------------------------------
*** Массив B ***
146 111 98 68 116 148 93 129 104 59

Answer 2

Приведу пример программы на языке Паскаль, которая решает данную задачу:

program TwoDimensionalArray;
var
  A: array[1..10, 1..10] of integer;
  B: array[1..10] of integer;
  i, j: integer;
begin
  // Заполнение двухмерного массива случайными значениями
  Randomize;
  for i := 1 to 10 do
  begin
    for j := 1 to 10 do
    begin
      A[i, j] := Random(21); // Генерация случайного числа от 0 до 20
    end;
  end;
  
  // Вычисление суммы элементов строк и заполнение одномерного массива B
  for i := 1 to 10 do
  begin
    B[i] := 0; // Обнуляем элемент массива B перед вычислением суммы
    for j := 1 to 10 do
    begin
      B[i] := B[i] + A[i, j]; // Прибавляем значение элемента A к сумме
    end;
  end;
  
  // Вывод массива B на экран
  for i := 1 to 10 do
  begin
    writeln('B[', i, '] = ', B[i]);
  end;
end.

В этой программе создается двухмерный массив `A` размером 10x10 и одномерный массив `B` размером 10. Затем двухмерный массив заполняется случайными значениями от 0 до 20. Далее происходит вычисление суммы элементов строк двухмерного массива и заполнение одномерного массива `B` этими суммами. Наконец, массив `B` выводится на экран.