Поменять местами значения элементов массива А(N,N) симметрично относительно побочной диагонали

@oksana Sanoka · Регистрация: 05.02.2015

Студворк — интернет-сервис помощи студентам

Помогите решить,пожалуйста!

1. Составьте программу, меняющую местами значения элементов массива А(N,N) симметрично относительно побочной диагонали.

@Puporev · 05.02.2015, 15:32

Pascal

uses crt;
const nmax=10;
var a:array[1..nmax,1..nmax] of integer;
    n,i,j:byte;
    x:integer;
begin
clrscr;
randomize;
repeat
write('Размер матрицы n=');
readln(n);
until n in [1..nmax];
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:=1 to n-1 do
for j:=1 to n-i do
 begin
  x:=a[i,j];
  a[i,j]:=a[n-j+1,n-i+1];
  a[n-j+1,n-i+1]:=x
 end;
writeln('Обмен элементов симметрично побочной диагонали');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
 end;
readln
end.

@oksana Sanoka 0 / 0 / 0 Регистрация: 05.02.2015 Сообщений: 8
		1
	Поменять местами значения элементов массива А(N,N) симметрично относительно побочной диагонали 05.02.2015, 15:07. Показов 2577. Ответов 1 Метки двумерный массив (Все метки) Помогите решить,пожалуйста! 1. Составьте программу, меняющую местами значения элементов массива А(N,N) симметрично относительно побочной диагонали. 0

Опции темы

Поменять местами значения элементов массива А(N,N) симметрично относительно побочной диагонали

Решение