Заполнить массив Y так, чтобы сначала располагались отрицательные, а затем положительные элементы массива X

@serjio970 · Регистрация: 02.09.2013

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

Заполнить массив Y так, чтобы сначала располагались отрицательные, а затем положительные элементы массива X.
Помогите, пожалуйста

@CodeR · 02.09.2013, 11:39

Pascal

Var Y:array[1..100] of integer;
    i,n,k1,k2:byte;
    t:integer;
Begin
    write('кол-во элементов: ');readln(n);
    For i:=1 to n do
    Begin
      t:=random(31)-15;
      if t<0 then 
      Begin
        inc(k1);
        Y[k1]:=t;
      End
      else
      Begin
        inc(k2);
        Y[n-k2+1]:=t;
      End;
    End;
    For i:=1 to n do
     write(Y[i]:4);
    readln;
End.

Тестируй

@serjio970 · 02.09.2013, 12:44 **[ТС]**

CodeR, благодарю

очень помогли

@serjio970 0 / 0 / 0 Регистрация: 02.09.2013 Сообщений: 7
		1
	Заполнить массив Y так, чтобы сначала располагались отрицательные, а затем положительные элементы массива X 02.09.2013, 10:30. Показов 1900. Ответов 2 Метки нет (Все метки) Заполнить массив Y так, чтобы сначала располагались отрицательные, а затем положительные элементы массива X. Помогите, пожалуйста 0

@serjio970 0 / 0 / 0 Регистрация: 02.09.2013 Сообщений: 7
	02.09.2013, 12:44 [ТС]	3
	CodeR, благодарю очень помогли 0

Заполнить массив Y так, чтобы сначала располагались отрицательные, а затем положительные элементы массива X

Решение