Сформировать квадратную матрицу порядка n по заданному образцу решения 1 0 0 .. 0 0 11 1 0 ... 0 1 11 1 1 ... 1 1 1...................1 1 0 ... 0 1 1 1 0 0 ...0 0 1
Сформировать квадратную матрицу порядка n по заданному образцу решения
1 0 0 .. 0 0 1
1 1 0 ... 0 1 1
1 1 1 ... 1 1 1
...................
1 1 0 ... 0 1 1
1 0 0 ...0 0 1
Гость
Ответ(ы) на вопрос:
Гостьconst
n = 10;
var
matrix : array [1..n] of array [1..n] of integer;
i, j, max : integer;
begin
{формирование матрицы}
for j := 1 to n do
begin
if j <= Trunc(n / 2) then {находим последний индекс для вставки 1}
max := j
else
max := n - j + 1;
for i := 1 to max do {заполняем линию единицами}
begin
matrix[j][i] := 1;
matrix[j][n - i + 1] := 1;
end;
end;
{вывод матрицы (если не нужно, удалите код)}
for j := 1 to n do
begin
for i := 1 to n do
write(matrix[j][i], ' ');
writeln;
end;
end.
Не нашли ответ?
Похожие вопросы