Question

Составить программу формирующую двухмерный массив 10^10 заполненный нулями,затем вывести на экран,затем преобразовать таким образом чтобы элементы главной диагонали были равны 1

Answer 1

program array
var
i,j:integer;
a: array [1..10, 1..10] of integer; 

begin

for i:=1 to 10 do begin
for j:=1 to 10 do begin
a[i,j] = 0;
writeln(a[i,j],"t");
end;
end;

for i:=1 to 10 do begin
for j:=1 to 10 do begin
if (i = j) then a[i,j] = 1;
writeln(a[i,j],"t");
end;
end;

end;

Answer 2

спасибо,большое