Дан массив размерностью 5х5 .Заполнить его так,чтобы по диагонали были 1,а остальные - 0
Answers & Comments
kosmonavtom
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.
Answers & Comments
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.