Question

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

Answer 1

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.

3967658834e8ddcc4f0a5a0b5ad95caf.pas