В заданном массиве A[N; N] определить сумму элементов в каждом столбце. Сформируйте одномерный массив, содержащий полученные суммы, расположенные по убыванию

Question

Информатика

Виктор

14 октября, 17:20

В заданном массиве A[N; N] определить сумму элементов в каждом столбце. Сформируйте одномерный массив, содержащий полученные суммы, расположенные по убыванию

+5

Ответы (1)

Знаете ответ на вопрос?

Юрченя · Answer 1

Const

N = 5;

var

i, j: integer;

ar: array[1 ... N, 1 ... N]of integer;

ms: array[1 ... N]of integer;

begin

for i : = 1 to N do

for j : = 1 to N do

begin

read (ar[i, j]) ;

ms[i] : = ms[i] + ar[i, j];

end;

writeln;

ms. sorted. print;

end.