Заполнить двумерный массив N*N числами с клавиатуры и найти сумму элементов массива нечётных столбцов

Question

Информатика

Варюта

3 января, 02:41

Заполнить двумерный массив N*N числами с клавиатуры и найти сумму элементов массива нечётных столбцов

+2

Ответы (1)

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

Венедим · Answer 1

Const N=3;

var a: array[1 ... N] of array[1 ... N] of integer;

i, j, s:integer;

begin

s:=0;

for i:=1 to N do begin

for j:=1 to N do begin

readln (a[i, j]) ;

end;

end;

for i:=1 to N do begin

if i mod 2 = 1 then

for j:=1 to N do begin

s:=s+a[i, j];

end;

end;

writeln (s) ;

end.