|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
13.01.2010, 02:41 | #1 |
Регистрация: 23.12.2009
Сообщений: 7
|
Максимальный элемент массива поменять местами с четвертым.
У меня зачача:
Максимальный элемент массива поменять местами с четвертым. Вот такую задачу мы делали на паре: Дан входной одномерный масив.Выходной массив получить, поменяв во входящем массиве первый и последний элементы местами и вывести оба массива-входной и выходной в рабочий лист. Private Sub CommandButton1_Click() n=InputBox("Vvedite kolichestvo elementov n") ReDim A(n) For i=1 to n A(i)=InputBox("Vvedite a("& i &")") Next i For i=1 to n Cells(2,i).Value=A(i) Next i Cells(1,1)="Vhodnoj" Cells(1,2)="Massiv" Cells(1,3)="Vuhodnoj" Cells(3,2)="Massiv" Amax=A(1):Amin=A(1) Nmax=1:Nmin=1 For i=2 to n If Amax<A(i) Then Amax=A(i):Nmax=i If Amin>A(i) Then Amin=A(i):Nmin=i Next i A(Nmax)=Amin A(Nmin)=Amax Fot i=1 to n Cells(4,i).Value=A(i) Next i End Sub Буду очень благодарна за помощь!!! |
13.01.2010, 03:31 | #2 |
Форумчанин
Регистрация: 18.10.2009
Сообщений: 185
|
Ну поидее вот так:
Код:
На С# пишу лучше чем на русском.
"У меня правильнописание хромает. Оно хорошее, но почему-то хромает." Последний раз редактировалось val_nnm; 13.01.2010 в 03:33. |
13.01.2010, 05:59 | #3 |
Особый статус
Участник клуба
Регистрация: 24.11.2008
Сообщений: 1,535
|
Не забыть про VAL
А на деле так!
Код:
Код:
Код:
Формула 1 (календарь чемпионата-2016): 26.11.2016 15:55 — Абу-Даби: http://ru.wikipedia.org/wiki/Гран-при_Абу-Даби — (квалификация)! Эфир: http://lion-tv.com/28-match-tv.html
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
найти наибольший и наименьший элемент матрицы B(N x M) и поменять их местами | поЛотЕнчик_просТо | Общие вопросы C/C++ | 2 | 13.05.2009 12:17 |
Как поменять местами в массиве max и min элемент. | Stager | Общие вопросы C/C++ | 2 | 13.01.2009 02:03 |
массив. поменять местами элемент | felmor | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 26.12.2008 20:50 |
Максимальный элемент массива | j_Q | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 0 | 04.11.2008 22:48 |