Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 20.12.2009, 15:26   #1
Nataly1992
Пользователь
 
Регистрация: 14.12.2009
Сообщений: 44
По умолчанию Одномерный массив

Здравствуйте! Опять обращаюсь к вам))
Вот такая вот задачка.
Дан одномерный массив А(n), который состоит не менее, чем из 10 элеметов(больших за ноль, меньших за ноль, нулевых). Выходной массив получить, поменяв второй елемент, меньший за ноль, минимальным. Вывести оба массива - входной и выходной в Excel.
Nataly1992 вне форума Ответить с цитированием
Старый 20.12.2009, 15:36   #2
Seil_29
Пользователь
 
Аватар для Seil_29
 
Регистрация: 18.12.2009
Сообщений: 17
По умолчанию

program helloworld;
var a:array[1..100] of integer;
n,i,imin,k,c,iotr:integer;
begin
read(n); {кол-во эл-ов массива}
for i:=1 to n do
read(a[i]);
k:=0;
imin:=1;
for i:=1 to n do
if a[i]<0 and k<=1 then {Если элемент отр. и его номер 1 или 2}
begin
iotr:=i;
k:=k+1;
end else if a[i] < a[imin] then
imin:=i;
c:=a[iotr]; {Или заменить без использование третьей}
a[iotr]:=a[imin];
a[imin]:=c;
for i:=1 to n do
write(a[i]);
end.
Seil_29 вне форума Ответить с цитированием
Старый 20.12.2009, 15:43   #3
Nataly1992
Пользователь
 
Регистрация: 14.12.2009
Сообщений: 44
По умолчанию

Нам на паре дали вот такую задачу:
Дан одномерный массив А(n). Выходной массив получить, поменяв местами первый и последние элементы.
вот так вот програмировали:
Private Sub CommandButton1_Click()
n=InputBox ("Vvedite kolichestvo n")
ReDim A(n)
For i=1 To n
A(i)=InputBox(Vvedite A("& и &"))
Next i
For i=1 To n
Cells (2,i).Value=A(i)
Next i
Cells(1,1)="Vhodnoj"
Cells(1,2)="Massiv"
Cells(3,1)="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
For i=1 To n
Cells(4,i).Value=A(i)
Next i
End Sub


Преподаватель сказала, что здесь чтото нужно заменить, чтобы сделать то условие, которое у меня в первом сообщении.
Помогите пожалуйста
Nataly1992 вне форума Ответить с цитированием
Старый 20.12.2009, 15:44   #4
Nataly1992
Пользователь
 
Регистрация: 14.12.2009
Сообщений: 44
По умолчанию

Цитата:
Сообщение от Seil_29 Посмотреть сообщение
program helloworld;
var a:array[1..100] of integer;
n,i,imin,k,c,iotr:integer;
begin
read(n); {кол-во эл-ов массива}
for i:=1 to n do
read(a[i]);
k:=0;
imin:=1;
for i:=1 to n do
if a[i]<0 and k<=1 then {Если элемент отр. и его номер 1 или 2}
begin
iotr:=i;
k:=k+1;
end else if a[i] < a[imin] then
imin:=i;
c:=a[iotr]; {Или заменить без использование третьей}
a[iotr]:=a[imin];
a[imin]:=c;
for i:=1 to n do
write(a[i]);
end.
Мне нужно в vba
Nataly1992 вне форума Ответить с цитированием
Старый 20.12.2009, 15:48   #5
Seil_29
Пользователь
 
Аватар для Seil_29
 
Регистрация: 18.12.2009
Сообщений: 17
По умолчанию

Простите, Бэйсика не знаю =(
Просто Вы не указали,на каком языке, подумал, мб паскаль
Seil_29 вне форума Ответить с цитированием
Старый 20.12.2009, 15:49   #6
Nataly1992
Пользователь
 
Регистрация: 14.12.2009
Сообщений: 44
По умолчанию

Цитата:
Сообщение от Seil_29 Посмотреть сообщение
Простите, Бэйсика не знаю =(
Просто Вы не указали,на каком языке, подумал, мб паскаль
Всеравно спасибо..)))
Nataly1992 вне форума Ответить с цитированием
Старый 20.12.2009, 16:10   #7
Nataly1992
Пользователь
 
Регистрация: 14.12.2009
Сообщений: 44
По умолчанию

помогите, умаляю......................
Nataly1992 вне форума Ответить с цитированием
Старый 20.12.2009, 16:26   #8
Nataly1992
Пользователь
 
Регистрация: 14.12.2009
Сообщений: 44
По умолчанию

На Вас последняя надежда...
Nataly1992 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
одномерный массив на С++ Sergius X Помощь студентам 0 30.11.2009 21:26
Двумерный массив, одномерный массив. Branbal Помощь студентам 14 18.11.2009 12:40
Одномерный массив Гамбит Помощь студентам 2 05.11.2009 22:18
[C#] Одномерный массив Doublefaced Помощь студентам 6 18.06.2009 19:00