Сформировать квадратную матрицу порядка n по заданному образцу. 8 класс массивы НОМЕР 73

Ответы (1)

Имама 20.09.2024 4
Var
a: array[1..100,1..100] of integer; i, j,n: integer;
begin
write('Введите количество строк и столбцов:');
readln(n); for i := 1 to n do begin
for j := 1 to n do
if (n=i+j-1) then a[i,j]:=i
else a[i,j]:=0;
end;
writeln ('Массив: ');
for i := 1 to n do begin
for j := 1 to n do
write(a[i,j]:3, ' ');
writeln;
end;
readln;
end.

Знаете правильный ответ?

Думаешь ответы не верны?

Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.

Воспользуйтесь поиском

Новые вопросы по предмету Информатика:

ПРЕДМЕТЫ