Сформировать квадратную матрицу порядка n по заданному образцу

@steps · Регистрация: 15.12.2013

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

Сформировать квадратную матрицу порядка n по заданному образцу:
n n-1 n-2 … 3 2 1
n-1 n-2 n-3 … 2 1 0
n-2 n-3 n-4 … 1 0 0
……………………………
1 0 0 … 0 0 0

Спасибо за помощь

@Puporev · 31.03.2014, 12:41

Pascal

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    n,i,j:integer;
begin
repeat
write('Размер матрицы до ',nmax,' n=');
read(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if j<=n-i+1 then a[i,j]:=n-i-j+2
    else a[i,j]:=0;
    write(a[i,j]:3);
   end;
  writeln;
 end;
end.

@steps 32 / 5 / 0 Регистрация: 15.12.2013 Сообщений: 72
		1
	Сформировать квадратную матрицу порядка n по заданному образцу 31.03.2014, 09:55. Показов 1907. Ответов 1 Метки нет (Все метки) Сформировать квадратную матрицу порядка n по заданному образцу: n n-1 n-2 … 3 2 1 n-1 n-2 n-3 … 2 1 0 n-2 n-3 n-4 … 1 0 0 …………………………… 1 0 0 … 0 0 0 Спасибо за помощь 0

Опции темы

Сформировать квадратную матрицу порядка n по заданному образцу

Решение