1. Составить программу, которая вычисляет суммы элементов столбцов двумерного массива и...

Question

1. Составить программу, которая вычисляет суммы элементов столбцов двумерного массива и записывает их в одномерный массив.
В Паскале

Answer 1

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

begin
  var (m,n):=ReadInteger2('Количество строк и столбцов в массиве:');
  Writeln('*** Исходный массив ***');
  var a:=MatrRandom(m,n,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  var b:=a.Cols.Select(x->x.Sum).ToArray; b.Println
end.

Пример
Количество строк и столбцов в массиве: 6 7
*** Исходный массив ***
  62 -85  18  64  95  41 -14
  72  50 -91  83  70 -14  -9
 -51 -16  24 -43  28 -97  96
 -53 -45 -54  42  72  97  23
 -34  39  27 -64   7 -33  59
  38 -59  60 -16 -26  49 -14
----------------------------
34 -116 -16 66 246 43 141

Answer 2

PROGRAM yaPak;vara:array[1..3,1..3]of integer;b:array[1..3]of integer;i,j,y:integer;BEGIN  y:=0;  for i:=1 to 3 do    begin      for j:=1 to 3 do        begin          a[i,j]:=random(100);          y:=y+a[i,j];        end;      b[i]:=y;      y:=0;      write(b[i],'; ');    end;END.