двумерный массив

[ates]

помогите плз задали двумерныый массив над его в паскаль засунуть
1 0 0 0 0 0 0 0 9
0 2 0 0 0 0 0 8 0
0 0 3 0 0 0 7 0 0
0 0 0 4 0 6 0 0 0
0 0 0 0 5 0 0 0 0
0 0 0 4 0 6 0 0 0
0 0 3 0 0 0 7 0 0
0 2 0 0 0 0 0 8 0
1 0 0 0 0 0 0 0 9

[vedro-compota]

а как именно засовывать собираешься? вводить по одной цифре?

[vedro-compota]

вот так можно

for i:=1 to 9 do
for j:=1 to 9 do
readln(m[i,j]);

в варе пиши :

m : array [1..9,1..9] of integer;

[Hacker19_90]

.......
var 
    Massiv[1..9, 1..9] of integer;
    i, j: integer;
begin
    j := 1;
    for i := 1 to 9 do
    begin 
        Massiv[i, j] := i;
        Inc(j);
    end;
    j := 1;
    for i := 9 downto 1 do
    begin 
        Massiv[i, j] := j;
        Inc(j);
    end;

end.

[Dvijochnyk]

а в чем проблема? двух мерный массив объявляется mas: array [1 .. n] [1 .. m] of тип; n-количество строк, m - столбцов.

[ates]

это то я и сам сделал мне какбы надо сделать диагональ с левого угла нижниго в верних угол правый другую то диагональ я сделал

[vedro-compota]

Hacker19_90 , кто-то из нас не прав )))я что-ли? ))

[vedro-compota]

только диагональ?

[Hacker19_90]

Сообщение от vedro-compota

Hacker19_90 , кто-то из нас не прав )))я что-ли? ))

Ну ему ток диагонали сделать, а не весь массив считать.

[Филантроп]

var a:array[1..9,1..9]of integer;
i,j,k:integer;
begin
for I := 1 to 9  do
  for j := 1 to 9  do
  a[i,j]:=0;
for I := 1 to 9  do begin
   a[i,i]:=i;
   a[i,9-i+1]:=9-i+1;
   end;

 for I := 1 to 9  do begin
  for j := 1 to 9  do
  write(a[i,j]:4);
  writeln;
 end;
  readln;
end.