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

@Натик · Регистрация: 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

@mamedovvms · 28.05.2009, 13:44

Pascal

uses crt;
var a:array[1..100,1..100] of integer;
      n,i,j:integer;
begin
 clrscr;
 writeln('n');
 readln(n);
for i:=1 to n do
 begin
  for j:=1 to n do
     begin
       if i=j then a[i,j]:=n-i+1;
       write(a[i,j]:3);
     end;
  writeln;
 end;
readln;
end.

@Натик 1 / 1 / 0 Регистрация: 27.05.2009 Сообщений: 19
		1
	Двумерные массивы 28.05.2009, 13:32. Показов 1034. Ответов 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

Опции темы

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

Решение