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

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

Задать свой вопрос
2 ответа
// 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-gt;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
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.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт