Сформировать новый массив так, чтобы в начале шли положительные, потом нулевые и отрицательные

@Julia94 · Регистрация: 08.10.2012

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

Разработать алгоритм в Паскале
Сформировать массив чисел А[N], а затем из него получить новый массив В[N] таким образом, чтобы в начале шли положительные элементы, потом нулевые и, наконец, отрицательные.

@Valery__ · 16.10.2012, 15:06

Pascal

Program arry;
Const n=5;     
Type mas = array[1..n] of real;
Var a,b:mas;
    i,j:integer;
BEGIN  
  Writeln ('Vvedite masiv chisel ');
  for i:=1 to n do begin
    Write ('a[',i,']');
    Readln (a[i]);
  end;
  j:=1;
  for i:=1 to n do begin    
    if a[i]>0 then begin
      b[j]:= a[i];
      j:=j+1;
    end;
  end;
    for i:=1 to n do begin    
    if a[i]=0 then begin
      b[j]:=a[i];
      j:=j+1;
    end;
  end;
  for i:=1 to n do begin    
    if a[i]<0 then begin
      b[j]:=a[i];
      j:=j+1;
    end;
  end;
  for i:=1 to n do begin
    Write (a[i],'  ');
  end;
  Writeln ;
  for i:=1 to n do begin
    Write (b[i],'  ');
  end;0
END.

@Julia94 -1 / 0 / 0 Регистрация: 08.10.2012 Сообщений: 71
		1
	Сформировать новый массив так, чтобы в начале шли положительные, потом нулевые и отрицательные 16.10.2012, 14:16. Показов 1649. Ответов 1 Метки нет (Все метки) Разработать алгоритм в Паскале Сформировать массив чисел А[N], а затем из него получить новый массив В[N] таким образом, чтобы в начале шли положительные элементы, потом нулевые и, наконец, отрицательные. 0

Опции темы

Сформировать новый массив так, чтобы в начале шли положительные, потом нулевые и отрицательные

Решение