Сформировать квадратную матрицу порядка n по заданному образцу(Паскаль)
1 0 0 … 0 0 0
1 1 0 … 0 0 0
1 1 1 … 0 0 0
…………….
1 1 1 … 1 1 0
1 1 1 … 1 1 1
Ответы
Ответ дал:
0
Ответ:
Pascal
const
n=10;
var
a : array [0..n, 0..n] of byte;
i, j : integer;
begin
for j:=0 to n-1 do begin
for i:=0 to n-1 do begin
if i<=j then
a[i,j] := 1
else
a[i,j] := 0;
write(a[i,j], ' ')
end;
writeln();
end;
end.
Приложения:
Вас заинтересует
1 год назад
1 год назад
1 год назад
7 лет назад
7 лет назад