Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.88/8: Рейтинг темы: голосов - 8, средняя оценка - 4.88
0 / 0 / 0
Регистрация: 17.02.2013
Сообщений: 73
1

Найти максимальный элемент массива . Поменять столбец, содержащий этот элемент с последним столбцом двумерного массива

03.12.2013, 22:42. Просмотров 1504. Ответов 1
Метки нет (Все метки)

Ввести двумерный массив размером 3*4. Найти максимальный элемент массива . Поменять столбец, содержащий этот элемент с последним столбцом двумерного массива .
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.12.2013, 22:42
Ответы с готовыми решениями:

Массив: Поменять столбец, содержащий максимальный элемент с последним столбцом массива.
3. Ввести двумерный массив размером 3*4. Найти максимальный элемент массива . Поменять столбец,...

Столбец массива, содержащий максимальный элемент, поменять местами со вторым столбцом
Помогите пожалуйста с задачей: Дан вещественный массив из 4 строк и 5 столбцов. Столбец,...

Столбец, содержащий минимальный элемент, поменять местами с последним столбцом
var mas : array of real; i , j, k : integer ; imin,x : real; Begin With stringgrid1 do begin...

Столбец, содержащий минимальный элемент, поменять местами с последним столбцом
Тема 5: «Обработка двумерных числовых массивов» Задача 5.1. Заполнить двумерный числовой массив В...

1
Супер-модератор
5245 / 2325 / 1274
Регистрация: 04.03.2013
Сообщений: 5,414
Записей в блоге: 1
04.12.2013, 08:10 2
Лучший ответ Сообщение было отмечено Светлана25 как решение

Решение

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
const
  n = 3;
  m = 4;
var
  a : array[1..n, 1..m] of integer;
  i, j, max, temp, k : integer;
begin
  writeln('массив:');  
  randomize;
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      a[i,j] := random(100);
      write(a[i,j]:4);
      if a[i,j] >= max then
      begin
        max := a[i,j];
        k := j {номер столбца}
      end
    end;
    writeln
  end;
  writeln('максимальный элемент: ', max, ' находится в ', k, ' столбце');  
  {обмениваем}
  for i := 1 to n do
  begin
    temp :=a[i,k];
    a[i,k] := a[i,m];
    a[i,m] := temp
  end;
  {выводим новый}
  writeln('поменяли столбцы:');
  for i := 1 to n do
  begin
    for j := 1 to m do write(a[i,j]:4);
    writeln
  end;  
  readln
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.12.2013, 08:10

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

Столбец содержащий минимальный элемент поменять местами с последним столбцом
Дан вещественный массив из 3 строк и 5 столбцов.Столбец содержащий минимальный элемент поменять...

Найти минимальный и максимальный элемент массива, поменять первый элемент массива с последним
Добрый вечер! есть 2 несложные задачи, помогите, пожалуйста решить: Вот первая Задан массив...

Удалить столбец двумерного массива, содержащий максимальный элемент
Дан двумерный целочисленный массив А размерность NxM. Удалить столбец, содержащий максимальный...

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


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

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

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