Этапы решения задачи. 1. Определим переменные, которые будем использовать в программе: имя массива A, размер массива N, индекс строки i

1. Определим переменные, которые будем использовать в программе: имя массива A, размер массива N, индекс строки i, индекс столбца j, cуммы элементов каждой строки S_i.

2. Для обращения к элементам массива потребуется использовать вложенные операторы цикла for...

3. Составим блок-схему алгоритма и программу формирования одномерного массива из сумм элементов каждой строки двумерного массива.

Program massiv_21; Var a: array[1..50, 1..50] of integer; s: array[1..50] of integer; i, j, n, m: integer; Begin writeln (' количество строк n='); readln (n); Write(‘количество столбцов m='’); Readln(m); writeln ('введите элементы массива'); For i: =1 to n do For j: =1 to m do begin write(‘a[‘, i, ’, ’, j, ’)=’); readln (a[i, j]); end; For i: =1 to n do begin S[i]: =0; {подготовка переменной для суммы } For j: =1 to m do S[i]: =S[i]+a[i, j]; {сумма элементов каждой строки } end; For i: =1 to n do writeln (‘s[‘, i, ’ ]=’, s[ i ]); {вывод массива } End.

Задание 2

В двумерном массиве, состоящем из N целых чисел, найти количество отрицательных элементов в каждом столбце. Из полученных значений сформировать одномерный массив.