Преобразование одномерного массива (сортировка)

@Небо Здесь · Регистрация: 03.03.2010

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

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

@Snoopy · 03.03.2010, 17:13

Pascal

uses crt;
var a:array[1..1000] of real;
    i,j,n,k:integer;
    x:real;
begin
ClrScr;
Randomize;
Write('n=');
Readln(n);
for i:=1 to n do
 begin
  a[i]:=-8+random(20);
  Write(a[i]:5:1);
 end;
Writeln;
for i:=1 to n do
 if a[i]<>0 then
  begin
   k:=k+1;
   x:=a[i];
   for j:=i downto k+1 do
   a[i]:=a[j-1];
   a[k]:=x;
  end;
for i:=1 to n do
 Write(a[i]:5:1);
Readln;
end.

@Небо Здесь · 04.03.2010, 15:09 **[ТС]**

большое спасибо за помощь ! )))

@Небо Здесь 5 / 0 / 0 Регистрация: 03.03.2010 Сообщений: 4
		1
	Преобразование одномерного массива (сортировка) 03.03.2010, 16:37. Показов 1656. Ответов 2 Метки нет (Все метки) Дан одномерный массив, состоящий из п вещественных элементов, вычислить. пНужно реобразовать массив таким образом, чтобы элементы, равные нулю, располагались после всех остальных. Помогите пожалуста с программой , не знаю как ее делать...( 0

@Небо Здесь 5 / 0 / 0 Регистрация: 03.03.2010 Сообщений: 4
	04.03.2010, 15:09 [ТС]	3
	большое спасибо за помощь ! ))) 0

Опции темы

Преобразование одномерного массива (сортировка)

Решение