Заполнить квадратную матрицу

@Yorich · Регистрация: 23.10.2014

Author24 — интернет-сервис помощи студентам

Заполнить квадратную матрицу:
$https://www.cyberforum.ru/cgi-bin/latex.cgi?\begin{pmatrix}0 &0 &0& 0& 1\\0 &0& 0& 6& 2\\0 &0 &9 &7 &3\\0 &0 &0 &8& 4\\0 &0 &0 &0 &5\\\end{pmatrix}$

@Puporev · 24.10.2014, 12:37

Pascal

const nmax=20;
var a:array[,] of integer;
    n,i,j,k,m:integer;
begin
repeat
write('Размер матрицы до ',nmax,' n=');
readln(n);
until n in [1..nmax];
setlength(a,n,n);
m:=n div 2;
k:=1;
for j:=n-1 downto m do
for i:=n-j-1 to j do
 begin
  a[i,j]:=k;   
  k:=k+1;
 end;
 for i:=0 to n-1 do
  begin
   for j:=0 to n-1 do
   write(a[i,j]:3);
   writeln
  end; 
end.

@Yorich 0 / 0 / 0 Регистрация: 23.10.2014 Сообщений: 7
		1
	Заполнить квадратную матрицу 23.10.2014, 23:54. Показов 1059. Ответов 1 Метки нет (Все метки) Заполнить квадратную матрицу: $https://www.cyberforum.ru/cgi-bin/latex.cgi?\begin{pmatrix}0 &0 &0& 0& 1\\0 &0& 0& 6& 2\\0 &0 &9 &7 &3\\0 &0 &0 &8& 4\\0 &0 &0 &0 &5\\\end{pmatrix}$ 0

	24.10.2014, 12:37

Заполнить квадратную матрицу

Решение