Заменить значения всех четных элементов главной диагонали массива на нулевые. Pascal

Question

Информатика

Агап

21 января, 23:00

Заменить значения всех четных элементов главной диагонали массива на нулевые. Pascal

+5

Ответы (1)

Знаете ответ?

Юнона · Answer 1

Var a:array[1 ... 12,1 ... 12]of integer; i, j, n:integer;

begin

readln (n) ;

for i:=1 to n do begin

for j:=1 to n do

read (a[i, j]) ;

writeln; end;

for i:=1 to n do

a[i, i]:=0;

readln;

end.