Сортировать элементы, расположенные до первого отрицательного элемента в порядке возрастания элементов

@krendelll · Регистрация: 03.04.2013

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

Задача.Дано одномерный массив.Сортировать элементы, расположенные до первого отрицательного элемента в порядке возрастания элементов.

Впорядкувати елементи, розташовані до першого від'ємного елемента в порядку зростання елементів.

Kodzaev · 16.05.2013, 01:01

Pascal

Var
  x: Array [1..100] of Integer;
  i,n,t,j: Byte;
  tmp: Integer;
BEGIN
Write('Введите кол-во элементов: ');
Readln(n);
Randomize;
t:=0;
Writeln('Исходный: ');
For i:=1 to n do
begin
  x[i]:=Random(51)-10;
  Write(x[i]:4);
end;
Writeln;
For i:=1 to n do
If x[i]>=0 Then Inc(t)
Else
Break;
If x[1]>=0 Then
For i:=1 to t-1 do
begin
  For j:=i+1 to t do
  If x[i]>x[j] Then
  begin
    tmp:=x[i];
    x[i]:=x[j];
    x[j]:=tmp
  end;
end;
If t=n Then
Writeln('Отрицательных нет')
Else
begin
  Writeln('Полученный:');
  For i:=1 to n do
  Write(x[i]:4);
end;
Readln
END.

@krendelll · 16.05.2013, 01:54 **[ТС]**

надо чтобы вводить сичла самому а не рандомно))

Kodzaev · 16.05.2013, 10:51

Замените этот участок:

Pascal

For i:=1 to n do
begin
  x[i]:=Random(51)-10;
  Write(x[i]:4);
end;

На этот:

Pascal

For i:=1 to n do
begin
  Write('x[',i,']=');
  Readln(x[i]);
end;

@krendelll 0 / 0 / 0 Регистрация: 03.04.2013 Сообщений: 10
		1
	Сортировать элементы, расположенные до первого отрицательного элемента в порядке возрастания элементов 16.05.2013, 00:39. Показов 1006. Ответов 3 Метки нет (Все метки) Задача.Дано одномерный массив.Сортировать элементы, расположенные до первого отрицательного элемента в порядке возрастания элементов. Впорядкувати елементи, розташовані до першого від'ємного елемента в порядку зростання елементів. 0

@krendelll 0 / 0 / 0 Регистрация: 03.04.2013 Сообщений: 10
	16.05.2013, 01:54 [ТС]	3
	надо чтобы вводить сичла самому а не рандомно)) 0

	16.05.2013, 10:51

Опции темы