Дан массив размерностью 5 х5. Заполнить его так, чтобы по диагонали были 1, а остальные - 0

Question

Информатика

Моша

21 июня, 18:55

Дан массив размерностью 5 х5. Заполнить его так, чтобы по диагонали были 1, а остальные - 0

+3

Ответы (1)

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

Флориана · Answer 1

Program matrix1;

type

matrix = array [1 ... 5, 1 ... 5] of integer;

var

a : matrix;

i, j: integer;

begin

for i : = 1 to 5 do begin

writeln (' ') ;

for j : = 1 to 5 do begin

if i=j then a[i, j]:=1 else a[i, j]:=0;

write (a[i, j], ' ') ;

end;

end;

end.