Заполнить двумерный массив

и вывести его на печать в виде


1 0 0 0 0


0 1 0 0 0


0 0 1 0 0


0 0 0 1 0


0 0 0 0 1


Подсказка;надо ввести условия для вывода
1,а в остальных случаях выводится 0

1

Ответы и объяснения

2014-03-10T18:06:09+00:00
Program matrix1;
type
   matrix= array [1..5, 1..5] of integer;
var
   a : matrix;
   i, j: integer;
begin
   for i :=1 to 5 do begin
      for j :=1 to 5 do begin
         if i=j then a[i, j]:=1 else a[i, j]:=0;
         write (a[i,j], ' ');
        end;
        writeln (' ');
    end;
end.