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

Question

Информатика

Адельфина

24 декабря, 05:38

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

+3

Ответы (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.