Сформировать квадратную матрицу порядка n по заданному образцу. N=10.
Паскаль.
Приложения:
Ответы на вопрос
Ответил XKekesX
1
Ответ:
program ideone;
var
i, j : integer;
m : array[0..9] of array[0..9] of integer;
begin
for i := 0 to 9 do
begin
for j := 0 to 9 do
begin
if i = j then
m[i][j] := (i + 1) * (i + 2)
else
m[i][j] := 0
end
end;
for i := 0 to 9 do
begin
for j := 0 to 9 do
begin
write(m[i][j]);
write(' ');
end
writeln();
end
end.
Объяснение:
Новые вопросы
var
i, j : integer;
m : array[0..9] of array[0..9] of integer;
begin
for i := 0 to 9 do
begin
for j := 0 to 9 do
begin
if i = j then
m[i][j] := (i + 1) * (i + 2)
else
m[i][j] := 0
end
end;
for i := 0 to 9 do
begin
for j := 0 to 9 do
begin
write(m[i][j]);
write(' ');
end;
writeln();
end
end.