Отсортировать последовательность!

@Анатолий007 · Регистрация: 04.11.2013

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

Написать программу для решения следующей задачи: в данной последовательности расположить сначала все отрицательные, затем положительные элементы, а нулевые элементы расположить в конце последовательности.

@riv94 · 18.12.2013, 08:50

вот! решил в лоб! проще некуда... балуйтесь, оптимизируйте

C++

#include "stdafx.h"
#include <iostream>
 
using namespace std;
int i,k, a[10],b[10];
 
void main()
{
    cout<<"Please INPUT array\n";
    for (i=0; i<10; i++) cin>>a[i];
    i=0; k=0;
    
    for (i=0; i<10; i++)
    {
        if (a[i]>0)
        {
            b[k]=a[i];
            k++;
        }
    }
 
    for (i=0; i<10; i++)
    {
        if (a[i]<0)
        {
            b[k]=a[i];
            k++;
        }
    }
 
    for (i=0; i<10; i++)
    {
        if (a[i]==0)
        {
            b[k]=a[i];
            k++;
        }
    }
 
    for (i=0; i<10; i++) cout<<b[i];
    
}

Добавлено через 7 минут
ну, елки-палки... тут же на Паскале надо... вечером перепишу, сейчас некогда

@Анатолий007 · 18.12.2013, 21:38 **[ТС]**

Хорошо . Буду очень благодарен !

@Анатолий007 · 20.12.2013, 11:04 **[ТС]**

riv94, Help

@riv94 · 21.12.2013, 21:36

Примерно так... За синтаксис не ручаюсь, Паскалем не баловался уже давным давно!

ну, синтаксис вы и сами, думаю, в состоянии поправить!

Pascal

program sort;
var
i,k:integer;
a: array [0..9] of integer;
b: array [0..9] of integer;
 
begin
 
    writeln("Please INPUT array");
    for i:=0 to 9 do read(a[i]);
    i:=0; k:=0;
    
    for i:=0 to 9 do 
  begin
        if (a[i]>0) then
           begin
              b[k]:=a[i];
              k:=k+1;
           end;
   end;
 
    for i:=0 to 9 do
    begin
        if (a[i]<0) then
        begin
            b[k]:=a[i];
            k:=k+1;
        end;
    end;
 
    for i:=0 to 9 do
   begin
        if (a[i]=0)
        begin
            b[k]:=a[i];
            k:=k+1;
        end;
    end;
 
    for i:=0 to 9 do write(b[i],' ');   
 
end.

Добавлено через 1 минуту
Анатолий007, посмотрите решение)

@Анатолий007 0 / 0 / 0 Регистрация: 04.11.2013 Сообщений: 16
		1
	Отсортировать последовательность! 18.12.2013, 03:33. Показов 736. Ответов 4 Метки нет (Все метки) Написать программу для решения следующей задачи: в данной последовательности расположить сначала все отрицательные, затем положительные элементы, а нулевые элементы расположить в конце последовательности. 0

@Анатолий007 0 / 0 / 0 Регистрация: 04.11.2013 Сообщений: 16
	18.12.2013, 21:38 [ТС]	3
	Хорошо . Буду очень благодарен ! 0

@Анатолий007 0 / 0 / 0 Регистрация: 04.11.2013 Сообщений: 16
	20.12.2013, 11:04 [ТС]	4
	riv94, Help 0

	21.12.2013, 21:36