Заполнить массив A следующим образом: 0 0 0 …0

[Григорийpnz]

var A: array[1..10,1..10] of integer;
Заполнить массив A следующим образом: 0 0 0 …0
0 1 0 ... 0
0 0 2 … 0
. . .
0 0 0 … 9
Ребят там ещё две квадратные скобки где столбик с числами с обоих сторон

[alex_fcsm]

Сообщение от Григорийpnz

Ребят там ещё две квадратные скобки где столбик с числами с обоих сторон

Это называется матрица и по-моему цифры должны располагаться на главной диагонали?
0000000000
0100000000
0020000000
0003000000
0000400000
0000050000
0000006000
0000000700
0000000080
0000000009

[Григорийpnz]

0 0 0 ... 0
0 1 0 ... 0
0 0 2 ... 0
...
0 0 0 ... 9
вот так пойдёт друг помоги!!!!

[alex_fcsm]

var a:array[1..10,1..10] of byte;
     i,j:byte;
begin
 for i:=1 to 10 do
  for j:=1 to 10 do
    if i=j then a[i,j]:=i-1 else a[i,j]:=0;{если элемент на главной диагонали}
 for i:=1 to 10 do
 begin
  writeln;
  for j:=1 to 10 do
    write(a[i,j],' ');
 end;
 
end.

[Stilet]

Ох надавал бы я тебе касперским по ручкам за такое название темы...
Ну лана, вот тебе в наказание замученный код:

   var s:string;i,k:integer;
begin
for i:=1 to 9 do begin
 for k:=1 to 9 do s:=s+'0';
 s[i]:=chr(i+ord('0'));
 writeln(s);s:='';
end;
readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

[Григорийpnz]

спасибо огромное

[Григорийpnz]

описание не напишеш

[Stilet]

А че тут писать?
Вложенный цикл - формируем строку с нулями
после - заносим в I-тое место строки число