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

Question

Информатика

Силуян

13 июня, 19:28

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

+4

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