"Изменить квадратную матрицу путем перестановки эллементов, симметричных относительно главной диагонали." Написать код на языке Паскаль. Помогите, очень надо!
"Изменить квадратную матрицу путем перестановки эллементов, симметричных относительно главной диагонали."
Написать код на языке Паскаль.
Помогите, очень надо!
Гость
Ответ(ы) на вопрос:
Гостьconst n=6;
var a:array[1..n,1..n] of integer;
i,j,c:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(50);
write(a[i,j]:4);
end;
writeln;
end;
for i:=2 to n do
for j:=1 to i-1 do
begin c:=a[i,j]; a[i,j]:=a[j,i]; a[j,i]:=c; end;
writeln('Полученный массив:');
for i:=1 to n do
begin
for j:=1 to n do write(a[i,j]:4);
writeln;
end;
end.
Пример:
Исходный массив:
3 35 21 1 39 48
39 44 2 43 16 28
15 32 46 43 45 3
19 7 25 13 0 36
44 33 21 16 11 11
22 48 28 36 1 12
Полученный массив:
3 39 15 19 44 22
35 44 32 7 33 48
21 2 46 25 21 28
1 43 43 13 16 36
39 16 45 0 11 1
48 28 3 36 11 12
Не нашли ответ?
Похожие вопросы