Паскаль. Единичная матрица

[newlife]

Получить единичную матрицу путём замены элементов на главной диагонали на 1, а остальные- на 0.

[ROMA2PVT]

program matr;
Uses
 crt;
const
n=5;
var
a:array[1..n, 1..n] of integer;
i,j: integer;
begin
Clrscr;
for i:=1 to n do
for j:=1 to n do
if i=j 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]:3);
writeln;
end;
end.

Вот.

[ROMA2PVT]

Меня удивляет воспитание молодёжи.Не СПАСИБО тебе ни ПОЖАЛУЙСТА.Да уж...

[newlife]

спасибо,Ромочка)))))))))))))))))))) )

[RUSt88]

Меня удивляет воспитание молодёжи.Не СПАСИБО тебе ни ПОЖАЛУЙСТА.Да уж...

доброе дело не подразумевает под собой какой-то отдачи или ее требования... Тогда это не доброе дело, а поппулизм

[ROMA2PVT]

доброе дело не подразумевает под собой какой-то отдачи или ее требования... Тогда это не доброе дело, а поппулизм

Всё зависит от воспитания.Я вот немогу не сказать Спасибо тому кто мне что-то сделал.