Сформировать квадратную матрицу порядка n по заданному образцу - Turbo Pascal (33783)
Формулировка задачи:
Сформировать квадратную матрицу порядка n по заданному образцу
Решение задачи: «Сформировать квадратную матрицу порядка n по заданному образцу»
textual
Листинг программы
uses crt; const nmax=20; var a:array[1..nmax,1..nmax] of integer; n,i,j:integer; begin clrscr; repeat write('Размер матрицы до ',nmax,' n='); readln(n); until n in [1..nmax]; writeln('Исходная матрица:'); for i:=1 to n do begin for j:=1 to n do begin if j<=i then a[i,j]:=n-i+j else a[i,j]:=0; write(a[i,j]:3); end; writeln; end; readln end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д