Сформировать двумерный массив все элементы равны нулю а элементы главной и побочной...

Question

Сформировать двумерный массив все элементы равны нулю а элементы главной и побочной диагонали равны единице в паскаль. Пожалуйста срочно надо!!!

Answer 1

 const n=6;
var a: array[1..n,1..n] of integer;
    i,j: integer;
begin
  for i:=1 to n do
  for j:=1 to n do
    if (i=j) or (i=n-j+1) then a[i][j]:=1
    else a[i][j]:=0;
// вывод на экран
  for i:=1 to n do
  begin
    for j:=1 to n do write(a[i][j]:4);
    writeln;
  end;
end.
  
 1   0   0   0   0   1
 0   1   0   0   1   0
 0   0   1   1   0   0
 0   0   1   1   0   0
 0   1   0   0   1   0
 1   0   0   0   0   1

Comments

Спасибо большое, ты меня спас!