Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
0 / 0 / 0
Регистрация: 31.03.2011
Сообщений: 20
1

В заданных массивах A и B поменять местами максимальные элементы

08.10.2011, 23:21. Показов 1399. Ответов 1
Метки нет (Все метки)

3. В заданных массивах A и B поменять местами максимальные элементы. Вывести на экран преобразованные массивы.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.10.2011, 23:21
Ответы с готовыми решениями:

В заданных массивах А и В поменять местами максимальные элементы и вывести их на экран
Как в заданных массивах А и В поменять местами максимальные элементы и вывести их на экран....

Процедура Swap, меняющая местами максимальные элементы матриц А и В
Код Delphi 1 2 const n=...;{целые константы>1} type матрица= array of real; Описать процедуру...

Описать процедуру swap(A,B), меняющую местами максимальные элементы матриц А и В
const n=...;{целые константы>1} type матрица= array of real; Описать процедуру swap(A,B),...

Поменять местами элементы массива
Поменять местами второй и четвертый элемент,если они положительны,или первый и третий,если они...

__________________
1
Заблокирован
09.10.2011, 00:39 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Цитата Сообщение от Sammy_13 Посмотреть сообщение
3. В заданных массивах A и B поменять местами максимальные элементы. Вывести на экран преобразованные массивы.
Ну, выводить это через цикл, в инете полно примеров

А найти максимальный элемент можно так:

Delphi
1
2
3
Var m, b: Array of real [1..10];
      i, ind1, ind2: Integer;
     max1, max2: real;
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
max1 := m[0];
max2 := b[0];
 
For i := 0 to 9 do
 begin
  If max1 < m[i] then
   begin
    max1 := m[i];
    ind1  := i;
   end;
 
  If max2 < b[i] then
   begin
    max2 := b[i];
    ind2  := i;
   end;
 end;
 
m[ind1] := max2;
b[ind2]  := max1;

P.S.: Программирую уже на С++ так, что извиняюсь, если где ошибся в синтаксе
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.10.2011, 00:39

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

Поменять местами элементы массива
Дан одномерный массив A (10) элементов,поменять в нем местами 1ий элемент (а1) и минимальный))

Поменять местами элементы стека
реализовать 2 стека, заполнить их значенияммию Разместить на форме компонент Spinedit и button. При...

Поменять местами элементы матрицы
нужно поменять элементы главной и побочнофй диагонали, помогите доделать unit Unit1; ...

В двухмерном массиве поменять местами элементы
В двухмерном массиве поменять местами элементы, лежащие выше и ниже главной диагонали


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

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

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