частичное изменение двумерного массива

@sergof · Регистрация: 26.01.2011

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

Задача : Дан двумерный массив. Поменять местами элементы:
1. расположенные в левом верхнем и левом нижнем углах массива
2. расположенные в правом верхнем и правом нижнем углах массива
(массив случайных чисел, кол-во строк и столбцов произвольное)

начало такое-
var a:array[1..100,1..100] of integer;
i,j,n,max,temp,buf:integer;
begin writeln('введите размер матрицы');readln(n);//пусть матрица квадратная
for i:=1 to n do
begin for j:=1 to n do
begin a[i,j]:=random(9); write(a[i,j],' ');
end; writeln; end;//вывод исходного массива
а вот дальше стопор!
И с какой стороны подступить не понятно...прошу помочь.

@KaiTheCat · 13.06.2011, 22:56

И с какой стороны подступить не понятно

Ну, сначала с левой, а потом с правой
1

Pascal
1
2
3
buf:=a[1,1];
a[1,1]:=a[n,1];
a[n,1]:=buf;

2

Pascal
1
2
3
buf:=a[1,n];
a[1,n]:=a[n,n];
a[n,n]:=buf;

@sergof · 13.06.2011, 23:00 **[ТС]**

сначала с левой, а потом с правой
Не будет для вас затруднительно написать? Дело в том что я так уже пробовал- не получается - пишет нельзя изменить тип внутри цикла(или чтото такое).

@KaiTheCat · 13.06.2011, 23:09

sergof, Вы, наверное, вписываете это в цикле заполнения массива? Потому что у меня все нормально работает.

@sergof · 13.06.2011, 23:12 **[ТС]**

Верно, в цикле. СПАСИБО, уже разобрался!
buf:=a[1,1];
a[1,1]:=a[n,1];
a[n,1]:=buf;
writeln;
for i:=1 to n do
begin for j:=1 to n do
begin write(a[i,j],' ');
end;writeln; end;
end.

Ну и вторая часть тоже...

Новые блоги и статьи Все статьи Все блоги /
Программный отбор элементов справочника Номенклатура по группе 1С Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор под наименованию группы (на. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	Программный отбор элементов справочника Сотрудники по перечислениям 1С Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит предопределенное значение перечислений. Процедура. . .
Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .

@sergof 1 / 1 / 3 Регистрация: 26.01.2011 Сообщений: 74

	частичное изменение двумерного массива 13.06.2011, 20:51. Показов 631. Ответов 4 Метки нет (Все метки) Задача : Дан двумерный массив. Поменять местами элементы: 1. расположенные в левом верхнем и левом нижнем углах массива 2. расположенные в правом верхнем и правом нижнем углах массива (массив случайных чисел, кол-во строк и столбцов произвольное) начало такое- var a:array[1..100,1..100] of integer; i,j,n,max,temp,buf:integer; begin writeln('введите размер матрицы');readln(n);//пусть матрица квадратная for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=random(9); write(a[i,j],' '); end; writeln; end;//вывод исходного массива а вот дальше стопор! И с какой стороны подступить не понятно...прошу помочь. 0

@sergof 1 / 1 / 3 Регистрация: 26.01.2011 Сообщений: 74
	13.06.2011, 23:00 [ТС]
	сначала с левой, а потом с правой Не будет для вас затруднительно написать? Дело в том что я так уже пробовал- не получается - пишет нельзя изменить тип внутри цикла(или чтото такое). 0

@KaiTheCat К.О. 534 / 499 / 344 Регистрация: 26.03.2011 Сообщений: 1,141
	13.06.2011, 23:09
	sergof, Вы, наверное, вписываете это в цикле заполнения массива? Потому что у меня все нормально работает. 0

@sergof 1 / 1 / 3 Регистрация: 26.01.2011 Сообщений: 74
	13.06.2011, 23:12 [ТС]
	Верно, в цикле. СПАСИБО, уже разобрался! buf:=a[1,1]; a[1,1]:=a[n,1]; a[n,1]:=buf; writeln; for i:=1 to n do begin for j:=1 to n do begin write(a[i,j],' '); end;writeln; end; end. Ну и вторая часть тоже... 0