![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 14.12.2009
Сообщений: 44
|
![]()
Здравствуйте! Опять обращаюсь к вам))
Вот такая вот задачка. Дан одномерный массив А(n), который состоит не менее, чем из 10 элеметов(больших за ноль, меньших за ноль, нулевых). Выходной массив получить, поменяв второй елемент, меньший за ноль, минимальным. Вывести оба массива - входной и выходной в Excel. |
![]() |
![]() |
![]() |
#2 |
Пользователь
Регистрация: 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. |
![]() |
![]() |
![]() |
#3 |
Пользователь
Регистрация: 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 Преподаватель сказала, что здесь чтото нужно заменить, чтобы сделать то условие, которое у меня в первом сообщении. Помогите пожалуйста |
![]() |
![]() |
![]() |
#4 | |
Пользователь
Регистрация: 14.12.2009
Сообщений: 44
|
![]() Цитата:
|
|
![]() |
![]() |
![]() |
#5 |
Пользователь
Регистрация: 18.12.2009
Сообщений: 17
|
![]()
Простите, Бэйсика не знаю =(
Просто Вы не указали,на каком языке, подумал, мб паскаль |
![]() |
![]() |
![]() |
#6 |
Пользователь
Регистрация: 14.12.2009
Сообщений: 44
|
![]() |
![]() |
![]() |
![]() |
#7 |
Пользователь
Регистрация: 14.12.2009
Сообщений: 44
|
![]()
помогите, умаляю......................
|
![]() |
![]() |
![]() |
#8 |
Пользователь
Регистрация: 14.12.2009
Сообщений: 44
|
![]()
На Вас последняя надежда...
|
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
одномерный массив на С++ | 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 |