массив.

[Nastya2406]

помогите пожалуйста. нужно сделать на языке паскаль.Дан одномерный массив,состоящий из n целых элементов.Преобразовать его таким образом,чтобы сначала распологались все положительные элементы,потом отрицательные.элементы равные 0 считать положительными.Порядок следования элементов должен сохраняться.заранее спасибо

[kakawkin]

быстренько быстренько написал чушь вот такую - спешу защищать дипломную работу

var p,o:string;a:array[1..6] of integer;i,v:integer;
begin
 write('Введите 6 чисел для массива: ')
 for i:=1 to 6 do
  begin
   Readln(v);
   a[i]:=v;
   Writeln('a[',i,']= v',v);
  end; 
 for i:=1 to 6 do
 begin
  if (a[i]>0 or a[i]=0) then p:=p+inttostr(a[i]);
  if a[i]<0 then o:=o+inttostr(a[i]);
 end; 
 for i:=1 to length(p) do a[i]:=strtoint(p[i]);
 for i:=length(p) to length(o) do a[i]:=strtoint(o[i]);

[Utkin]

(a[i]>0 or a[i]=0)

эквивалентно a[i]>-1, а вместо второго условия можно и даже нужно использовать ветвь else

[Nastya2406]

совсем не то кажись...дан же целочисленный массив...

[Utkin]

Дан одномерный массив

Вы уж определитесь, что там в задании. Для справки: матрица это двухмерный массив...

[Rififi]

Дан одномерный массив,состоящий из n целых элементов.Преобразовать его таким образом,чтобы сначала распологались все положительные элементы,потом отрицательные.элементы равные 0 считать положительными.Порядок следования элементов должен сохраняться.

в программе массив заполнен случайно, n = 10
если нужно заполнять вручную, сделаешь это сама.

#include <vector>
#include <algorithm>
#include <iostream>
#include <iterator>
#include <locale>

#include <stdlib.h>
#include <time.h>

struct R
{
	int operator()() const
	{
		return rand() % 21 - 10;	// -10 .. 10
	}
};

typedef std::vector<int> V;

std::ostream& operator<<(std::ostream& os, const V& v)
{
	typedef std::ostream_iterator<V::value_type> O;
	std::copy(v.begin(), v.end(), O(os, " "));
	return os;
}

int main()
{
	setlocale(LC_ALL, "");
	srand((unsigned) time(NULL));

	V v(10);
	std::generate(v.begin(), v.end(), R());

	std::cout << v << std::endl;

	std::stable_partition(v.begin(), v.end(), std::bind2nd(std::greater<int>(), 0));

	std::cout << v << std::endl;

	return 0;
}

Пример работы программы: http://liveworkspace.org/code/afa3f1...60b8a36a145b71

[Nastya2406]

вообще то я знаю.задание правильное

Rififi это разве паскаль?а можно на паскале

[Rififi]

Nastya2406

Rififi это разве паскаль?

Нет, не паскаль, а зачем он? Ты кролега упоминание о паскале где-нибудь видишь в своём исходном сообщении? И я не вижу. А значит предполагаю, что задание можно выполнить на любом понравившемся языке программирования.

а можно на паскале

неа. он мне не нравится.

[Utkin]

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

вообще то я знаю.задание правильное

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

совсем не то кажись...дана же целочисленная массив...

еще больше запутывает.

[Nastya2406]

ну пожалуйста помогите(((((((