Построить новый массив, у которых вначале все положительные Ai, а затем все отрицательные

@Bombuster · Регистрация: 14.06.2011

Дан массив A1... A20. Построить новый массив B1... B20, у которых вначале все положительные Ai, а затем все отрицательные.

@Gibrid · 29.02.2012, 12:58

Pascal

type mass=array[1..20] of real;
var a,b:mass;
i,k:integer;
begin
       k:=0;
       for i:=1 to 20 do
       begin
              read(A[i]);
              if A[i]>=0 then begin
                                        k:=k+1;
                                        B[k]:=A[i];
                                 end;
       end;
       for i:=1 to 20 do
          if A[i]<0 then begin
                                        k:=k+1;
                                        B[k]:=A[i];
                                 end;
       for i:=1 to 20 do
       write(B[i]:5:2,' ');
       readln;
end.

@Bombuster 0 / 0 / 0 Регистрация: 14.06.2011 Сообщений: 14
		1
	Построить новый массив, у которых вначале все положительные Ai, а затем все отрицательные 29.02.2012, 12:34. Показов 1148. Ответов 1 Метки нет (Все метки) Дан массив A1... A20. Построить новый массив B1... B20, у которых вначале все положительные Ai, а затем все отрицательные. 0

Опции темы

Построить новый массив, у которых вначале все положительные Ai, а затем все отрицательные

Решение