Дан двумерный массив размерностью 5х6, заполненный целыми числами. Сформировать одномерный массив, каждый (программа Паскаль)

Question

Дан двумерный массив размерностью 5х6, заполненный целыми числами.   Сформировать одномерный массив, каждый элемент которого соответственно   равен сумме элементов строк. Оба массива вывести на экран

Answer 1

USES Crt;
 VAR
   H:ARRAY[0..5,0..6] OF INTEGER;   K:ARRAY[0..5] OF INTEGER;  
   I,J:BYTE;   S:INTEGER;
 BEGIN
   ClrScr;   Randomize;
   { Заполнение двумерного массива случайным образом и вывод в виде     прямоугольной матрицы }
   WriteLn(' Значения двумерного массива');
   FOR I:=1 TO 5 DO Begin
     FOR J:=1 TO 6 DO Begin
       H[I,J]:=Random(23);  Write(H[I,J]:3);
     End;     WriteLn;
   End;   WriteLn;
   { Нахождение суммы элементов строк и заполнение одномерного массива }
   WriteLn(' Значения одномерного массива');
   FOR I:=1 TO 5 DO Begin
     S:=0;
     FOR J:=1 TO 6 DO
       S:=S+H[I,J];     
     K[I]:=S;     Write(K[I]:4);
   End;
 END.