пожалуйста очень прошу нужна помощь решить задачу

@dauren · Регистрация: 03.11.2014

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

пожалуйста помогите люди! задачки решить .
вот условие:
даны натуральное число n, действительные числа a1,..., a n. преобразовать последовательность a1,..., a 2n расположив вначале отрицательные члены, а затем-неотрицательные. при этом порядок тех и других чисел изменяется на обратный.

@programist · 27.04.2008, 22:58

uses crt;
var k,n:integer;
a:array [1..10000] of integer;
begin
clrscr;
write('Skilki elementiv v masivi ');read(n);
for k:=1 to n do read(a[k]);
for k:=n downto 1 do
if a[k]<0 then write(a[k],' ');
for k:=n downto 1 do
if a[k]>0 then write(a[k],' ');
readln;readln
end.

@dauren 0 / 0 / 0 Регистрация: 03.11.2014 Сообщений: 6
		1
	пожалуйста очень прошу нужна помощь решить задачу 14.04.2008, 19:06. Показов 1097. Ответов 1 Метки нет (Все метки) пожалуйста помогите люди! задачки решить . вот условие: даны натуральное число n, действительные числа a1,..., a n. преобразовать последовательность a1,..., a 2n расположив вначале отрицательные члены, а затем-неотрицательные. при этом порядок тех и других чисел изменяется на обратный. 0

@programist 0 / 0 / 0 Регистрация: 29.03.2012 Сообщений: 4
	27.04.2008, 22:58	2
	uses crt; var k,n:integer; a:array [1..10000] of integer; begin clrscr; write('Skilki elementiv v masivi ');read(n); for k:=1 to n do read(a[k]); for k:=n downto 1 do if a[k]<0 then write(a[k],' '); for k:=n downto 1 do if a[k]>0 then write(a[k],' '); readln;readln end. 0

Опции темы