Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
Сат
0 / 0 / 0
Регистрация: 21.04.2015
Сообщений: 20
1

Поменять местами элементы противоположных столбцов матрицы

24.04.2016, 15:41. Просмотров 786. Ответов 1
Метки нет (Все метки)

дана целочисленная матрица размером n*m(m-четное).Написать программу, позволяющую менять местами элементы первого и последнего столбцов,элементы второго и (n-1)-го столбцов и т.д до среднего столбца(n-четное) помогите
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.04.2016, 15:41
Ответы с готовыми решениями:

Поменять местами элементы первого и последнего столбцов матрицы
Дана целочисленная матрица размером n*m (m - четное). Написать программу,...

Дана матрица m x n. Поменять местами элементы четных столбцов
Пожалуйста,помогите!:cry: Дана матрица m x n. Поменять местами элементы четных...

Поменять местами минимальный и максимальный элементы матрицы
3) Поменять местами минимальный и максимальный элементы матрицы

Поменять местами элементы относительно побочной диагонали матрицы
поменять местами элементы относительно побочной диагонали

Найти наибольший и наименьший элементы матрицы и поменять их местами
Помогите сделать =) Даны натуральные числа n, m и матрица разрядности nхm...

1
Puporev
Модератор
54719 / 42124 / 29087
Регистрация: 18.05.2008
Сообщений: 99,437
24.04.2016, 16:13 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
var a:array[,] of integer;
    n,m,i,j,x:integer;
begin
randomize;
repeat
write('Введите количество строк n>0 n=');
readln(n);
until n>0;
repeat
write('Введите количество столбцов, четное число больше 1 m=');
readln(m);
until (m>1)and(m mod 2=0); 
writeln('Исходная матрица');
setlength(a,n,m);
for i:=0 to n-1 do
 begin
  for j:=0 to m-1 do
   begin
    a[i,j]:=random(100);
    write(a[i,j]:3);
   end;
  writeln;
 end;
for j:=0 to m div 2-1 do
for i:=0 to n-1 do
 begin
  x:=a[i,j];
  a[i,j]:=a[i,m-j-1];
  a[i,m-j-1]:=x;
 end;
writeln('Перестановка столбцов');
for i:=0 to n-1 do
 begin
  for j:=0 to m-1 do
  write(a[i,j]:3);
  writeln;
 end;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.04.2016, 16:13

Поменять местами элементы третьей и первой строки матрицы
Помогите! Матрица 4 на 4. Вводится с клавиатуры. Поменять местами элементы...

Поменять местами максимальный и минимальный элементы главной диагонали матрицы
В квадратной матрице размером 5х5 узнать максимальный и минимальный элемент...

Поменять местами в каждом столбце матрицы минимальный и максимальный элементы
Дана целочисленная прямоугольная таблица размером m×n. Поменять местами в...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru