Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.89/9: Рейтинг темы: голосов - 9, средняя оценка - 4.89
0 / 0 / 0
Регистрация: 23.11.2009
Сообщений: 10
1

Обмен столбцов в матрице

30.11.2009, 18:35. Показов 1764. Ответов 1
Метки нет (Все метки)

В матрице A[1..N,1..M] поменять столбцы, содержащие соответственно максимальный и минимальный элементы матрицы. Определить среднее арифметическое этих столбцов
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.11.2009, 18:35
Ответы с готовыми решениями:

Осуществить обмен строк в матрице
Есть матрица. Нужна помощь с созданием ПОДПРОГРАММУ-ФУНКЦИЮ в, которой осуществить обмен элементов...

Обмен элементов в матрице.
Задана матрица м на н 3. найти в каждой строчке найбольший и найменьший елемент и поставить их на...

Двумерный массив: обмен, вставка и удаление строк и столбцов
Помогите написать программу. Дан двумерный массив с размерностью 8*7,заполненный случайным образом....

Двумерный массив. Замена, вставка, удаление, обмен строк и столбцов
Дан двумерный массив размерностью 5 х 6, заполненный случайным образом. − заменить...

__________________
1
4337 / 1469 / 680
Регистрация: 12.03.2009
Сообщений: 5,310
30.11.2009, 21:11 2
Лучший ответ Сообщение было отмечено ItachI как решение

Решение

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
39
40
41
42
43
44
45
46
47
48
49
50
51
uses crt;
const n=5; m=4;
var a:array[1..n,1..m]of integer;
i,j,mini,minj,maxi,maxj,b:integer;
 
begin
 clrscr;
 randomize;
 writeln('Исходная матрица');
 for I:=1 to n do
 begin
  for j:=1 to m do
  begin
   a[i,j]:=random(100);
   write(a[i,j]:3);
  end;
  writeln;
 end;
 
 mini:=1;
 minj:=1;
 maxi:=1;
 maxj:=2;
 for i:=1 to n do for j:=1 to m do if a[i,j]>a[maxi,axj] then
 begin
  maxi:=i;
  maxj:=j;
 end else if a[i,j]<a[mini,minj] then
 begin
  mini:=i;
  minj:=j;
 end;
 
 writeln('Минимальный элемент ',a[mini,minj],' находится в ',minj,' столбце);
 writeln('Максимальный элемент ',a[maxi,maxj],' находится в ',maxj,' столбце);
 
 for i:=1 to n do
 begin
  b:=a[i,minj];
  a[i,minj]:=a[i,maxj];
  a[i,maxj]:=b;
 end;
 
 writeln('Новая матрица');
 for I:=1 to n do
 begin
  for j:=1 to m do write(a[i,j]:3);
  writeln;
 end;
 readln;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.11.2009, 21:11

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Обмен столбцов в двумерном массиве (найти ошибку в программе)
Задача: Дан двумерный массив целых чисел. Нужно поменять местами первый столбец со столбцом, в...

Двумерный массив: замена, вставка, удаление и обмен строк / столбцов
Дан двумерный массив размером 5*8, запол¬ненный случайным образом. 1. Заменить все симметричные...

Двумерный массив. Замена элементов, удаление и обмен строк и столбцов
Дан двумерный массив размерностью 5 х 6, заполненный случайным образом. − заменить...

Обмен половинами в матрице
Дана матрица HxW H = 4 W = 4. Составить функцию, которая может, менять столбцы первой половины...


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

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

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