Двумерные массивы

@Натик · Регистрация: 27.05.2009

n 0 0 … 0 0 0
0 n-1 0 … 0 0 0
0 0 n-2 … 0 0 0
… … … … … … …
0 0 0 … 0 2 0
0 0 0 … 0 0 1

@Puporev · 27.05.2009, 16:00

Pascal

for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if i=j then a[i,j]:=n-i+1
    else a[i,j]:=0;
    write(a[i,j]:3);
   end;
 writeln;
end;

@Натик 1 / 1 / 0 Регистрация: 27.05.2009 Сообщений: 19
		1
	Двумерные массивы 27.05.2009, 15:26. Показов 1064. Ответов 1 Метки нет (Все метки) n 0 0 … 0 0 0 0 n-1 0 … 0 0 0 0 0 n-2 … 0 0 0 … … … … … … … 0 0 0 … 0 2 0 0 0 0 … 0 0 1 0

Опции темы

Решение