Консультация № 194403
12.01.2019, 14:41
0.00 руб.
0 1 1
Помогите пожалуйста Сформировать квадратную матрицу порядка n (n – вводится с клавиатуры пользователем) по следующему образцу:

Обсуждение

давно
Профессор
401888
1232
12.01.2019, 15:52
общий
12.01.2019, 16:16
это ответ
Здравствуйте, mustang289!
Код:
var a:array[1..20,1..20] of integer;
n,i,j:byte;
begin
repeat
write('Введите размер матрицы от 2 до 20 n=');
readln(n);
until n in [2..20];
for i:=1 to n do
begin
for j:=1 to n do
begin
if j<=n-i+1 then a[i,j]:=i+j-1
else a[i,j]:=0;
write(a[i,j]:3);
end;
writeln;
end;
end.
5
Форма ответа