Екі өлшемді массив есеп паскальда осылай шығу?

Question

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

Екі өлшемді массив есеп паскальда осылай шығу керек, кодын қалай жазсам болады шығар алар емеспін?

Answer 1

Жобалап былай, негізгі ой түсінікті болатын шығар деп ойлаймын:

for i:=1 to 5 do

begin

  for j:=1 to 4 do

  begin

    if i = j then write ('1 ') else write ('0');

  end

writeln

end