главная диагональ матрицы Опции

[SilentmaN]

Я скачал с сайта уроки по паскалю, все задачи решал за 5 минут :D , но в седьмом уроке есть такая задача:

По теме "циклы": - напишите программу, печатающую столбик строк такого вида:

1 0 0 0 0 0 0 0 0
0 2 0 0 0 0 0 0 0
0 0 3 0 0 0 0 0 0
0 0 0 4 0 0 0 0 0
0 0 0 0 5 0 0 0 0
0 0 0 0 0 6 0 0 0
0 0 0 0 0 0 7 0 0
0 0 0 0 0 0 0 8 0
0 0 0 0 0 0 0 0 9

Я пол дня ломал голову, но так и не смог её решить :fire: . Подскажите пожалуйста как её решить, интересно очень!!! :thanks:

Сообщение отредактировано: мисс_граффити - 13.06.2007 10:21

[klem4]

Код

uses crt;
const n=9;
var x:array[1..n,1..n] of integer;
   i,j:integer;

Begin
  clrscr;
  for i:=1 to n do
   x[i,i]:=i;
  for i:=1 to n do
   begin
      for j:=1 to n do
       begin
          write(x[i,j]);
          write(' ');
       end;
      writeln;
   end;
  readln;
  end.

PS это не столбик, это матрица ))

Сообщение отредактировано: klem4 - 9.02.2005 21:51