матрици

[tetu115]

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

[Stilet]

const n=0;
var i,j:integer; a:array[1..n,1..n] of integer;
begin
 for i:=1 to n do begin
  for j:=1 to n do begin
   a[i][j]:=byte(i=j);write(a[i][j]:5);
  end; writeln;
 end;readln;
end.

Годится идея?

[tetu115]

выбивает ошибку: верхняя граница индекса массива меньше нижней

[Smitt&Wesson]

to n-1 поставить, руки отвалятся?

[Stilet]

to n-1 поставить, руки отвалятся

Это же не си! Тут не надо так извращаться с нулем

[Poma][a]

Кстати, отличная идея.. надо будет взять на вооружение..