Задачка в паскале. Создать одномерный массив А, состоящий из сумм столбцов…

Program Task; Const m=8; n=5; Var A: Array [1… n] of Integer; B: Array [1… m, 1… n] of Integer; i, j, min: Integer; product: LongInt; BeginRandomize; For i: =1 To m DoFor j: =1 To n DoB[i, j]: =Random (20+1) — 10; WriteLn ('Матрица B: '); For i: =1 To m DoBeginFor j: =1 To n DoWrite (B[i, j], '); WriteLn; End; For i: =1 To n DoFor j: =1 To m DoA[i]: =A[i]+B[j, i]; WriteLn ('Массив A: '); For i: =1 To n DoWrite (A[i], '); WriteLn; min: =1; product: =1; For i: =1 To n DoBeginproduct: =product*A[i]; If A[i] < A[min] Thenmin: =i; End; WriteLn ('Минимальный элемент: ', A[min]); WriteLn ('Его расположение: ', min); WriteLn ('Произведение всех элементов: ', product); ReadLn; End.