Сортировка с условием

@jameses · Регистрация: 21.10.2014

Author24 — интернет-сервис помощи студентам

Нужно, чтобы, когда пользователь вводит два нуля подрят imin и imax менялись местами else удалить все числа.. То бишь, вводится 10 чисел и если хотя бы 2 из них равны 0, то выполняются условия и тд.

@jameses · 01.12.2014, 16:29 **[ТС]**

UPPPP!

@ZX Spectrum-128 · 01.12.2014, 20:43

jameses, а по-русски, внятно и с расстановкой задание повторить сможете? Так, как его дал преподаватель?

@jameses · 02.12.2014, 00:42 **[ТС]**

Вообщем, мы проходим одномерные массивы. Нужно, когда вводит пользователь два нуля подрят, чтобы программа выполняла условия, если нет, то выход.. Можно ввести, чтобы вводил 10 элементов и если не одного нуля, то выход, если же, выполняется условие, то нахождение минимального и максимального элемента и смена их местами. Опять же, было сказано, для того использовать "запасной карман", куда положить первый элемент, а второй элемент поставить на место первого..

@APALoff · 02.12.2014, 00:46

Не по теме:

Сообщение от ZX Spectrum-128

Так, как его дал преподаватель?

Подозреваю, что и во второй раз он привел условия не дословно...

@ZX Spectrum-128 · 02.12.2014, 09:51

Не по теме:

Ага. И во второй раз еще непонятнее.
Это не Кличко случайно на форум зашел?

@jameses · 02.12.2014, 12:25 **[ТС]**

Пользователь вводит 10 чисел.
Если два из них подряд нуля идут(ввёл), то выполняется условие поменять местами максимальный и минимальный элемент(Сортировка). А, если из тех 10 элементов, он не ввёл двух нулей, то просто выход из программы.

@ZX Spectrum-128 · 02.12.2014, 13:41

jameses, блин!
Так "поменять местами максимальный и минимальный элемент" или "(Сортировка)"?
Таки это разные вещи.

else удалить все числа..

он не ввёл двух нулей, то просто выход из программы.

На ходу ~~подметки рвет~~ меняет условия задачи.

@vint-81 · 02.12.2014, 13:45

Pascal

const n=10;
type mas=array[1..n] of integer;
var max,min,imax,imin,i,tmp:integer;
    a:mas;
    f:boolean;
begin
 randomize;
 f:=false;
 writeln('A:');
 read(a[1]);
 max:=a[1];min:=a[1];imax:=1;imin:=1;
 for i:=2 to n do
  begin
   read(a[i]);
   if a[i]=5 then a[i]:=0;
   if (a[i-1]=0)and(a[i]=0) then f:=true;
   if a[i]>max then begin max:=a[i];imax:=i end;
   if a[i]<min then begin min:=a[i];imin:=i end;
  end;
 if f
  then
   begin
    tmp:=a[imin];
    a[imin]:=a[imax];
    a[imax]:=tmp;
    writeln;
    writeln('A'':');
    for i:=1 to n do write(a[i],' ')
   end
end.

@jameses · 02.12.2014, 17:05 **[ТС]**

А randomize зачем здесь?

@vint-81 · 02.12.2014, 17:13

Сообщение от jameses

А randomize зачем здесь?

забыл убрать... и 15 строчку тоже... (массив задавал случайным)

@vint-81 охотник 1011 / 535 / 650 Регистрация: 29.09.2014 Сообщений: 1,083
	02.12.2014, 17:13	11
	Сообщение было отмечено jameses как решение Решение Сообщение от jameses А randomize зачем здесь? забыл убрать... и 15 строчку тоже... (массив задавал случайным) 1

@jameses 0 / 0 / 3 Регистрация: 21.10.2014 Сообщений: 215
		1
	Сортировка с условием 30.11.2014, 11:48. Показов 1224. Ответов 10 Метки нет (Все метки) Нужно, чтобы, когда пользователь вводит два нуля подрят imin и imax менялись местами else удалить все числа.. То бишь, вводится 10 чисел и если хотя бы 2 из них равны 0, то выполняются условия и тд. 0

@jameses 0 / 0 / 3 Регистрация: 21.10.2014 Сообщений: 215
	01.12.2014, 16:29 [ТС]	2
	UPPPP! 0

@ZX Spectrum-128 6810 / 4567 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	01.12.2014, 20:43	3
	jameses, а по-русски, внятно и с расстановкой задание повторить сможете? Так, как его дал преподаватель? 0

@jameses 0 / 0 / 3 Регистрация: 21.10.2014 Сообщений: 215
	02.12.2014, 00:42 [ТС]	4
	Вообщем, мы проходим одномерные массивы. Нужно, когда вводит пользователь два нуля подрят, чтобы программа выполняла условия, если нет, то выход.. Можно ввести, чтобы вводил 10 элементов и если не одного нуля, то выход, если же, выполняется условие, то нахождение минимального и максимального элемента и смена их местами. Опять же, было сказано, для того использовать "запасной карман", куда положить первый элемент, а второй элемент поставить на место первого.. 0

@APALoff
	02.12.2014, 00:46 #5
	Не по теме: Сообщение от ZX Spectrum-128 Так, как его дал преподаватель? Подозреваю, что и во второй раз он привел условия не дословно... 0

@ZX Spectrum-128
	02.12.2014, 09:51 #6
	Не по теме: Ага. И во второй раз еще непонятнее. Это не Кличко случайно на форум зашел? 0

@jameses 0 / 0 / 3 Регистрация: 21.10.2014 Сообщений: 215
	02.12.2014, 12:25 [ТС]	7
	Пользователь вводит 10 чисел. Если два из них подряд нуля идут(ввёл), то выполняется условие поменять местами максимальный и минимальный элемент(Сортировка). А, если из тех 10 элементов, он не ввёл двух нулей, то просто выход из программы. 0

@ZX Spectrum-128 6810 / 4567 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	02.12.2014, 13:41	8
	jameses, блин! Так "поменять местами максимальный и минимальный элемент" или "(Сортировка)"? Таки это разные вещи. else удалить все числа.. он не ввёл двух нулей, то просто выход из программы. На ходу ~~подметки рвет~~ меняет условия задачи. 0

@jameses 0 / 0 / 3 Регистрация: 21.10.2014 Сообщений: 215
	02.12.2014, 17:05 [ТС]	10
	А randomize зачем здесь? 0

Сортировка с условием

Решение

Решение