Составить программу формирующую двухмерный массив 10^10 заполненный нулями,затем вывести на экран,затем преобразовать таким образом чтобы элементы главной диагонали были равны 1
Answers & Comments
Feramount
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;
Answers & Comments
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;