Расположить в массиве R сначала положительные, а затем отрицательеные элементы массива Z

@Antonyk · Регистрация: 02.12.2015

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

Помогите пожалуйста! Завтра надо идти зачёт получать по ИТвР и там будет такая задача...

Расположить в массиве R сначала положительные, а затем отрицательеные элементы массива Z. N<=40.

@tururui · 10.12.2009, 13:12

Pascal

Const N = 10;
Var A,B:Array[1..N] Of Integer;
    I,J : Integer;
 
BEGIN
     Randomize;
     For I := 1 To N Do A[I] := Random(10)-2;
     For I := 1 To N Do B[I] := 0;
     WriteLn('Ishodn massiv:');
     For I := 1 To N Do Write(A[I]:3);
     readln;
     J := 1;
     For I := 1 To N Do
     Begin
          If A[I] >= 0 Then
          Begin
               B[J] := A[I];
               Inc(J);
          End;
     End;
     For I := 1 To N Do
     Begin
          If A[I] < 0 Then
          Begin
               B[J] := A[I];
               Inc(J);
          End;
     End;
 
     WriteLn;
     WriteLn('Polucennii massiv:');
     For I := 1 To N Do Write(B[I]:3);
     readln;
END.

@Antonyk · 10.12.2009, 20:58

Спасибо большое...

@Antonyk 0 / 0 / 0 Регистрация: 02.12.2015 Сообщений: 7
		1
	Расположить в массиве R сначала положительные, а затем отрицательеные элементы массива Z 10.12.2009, 12:48. Показов 5695. Ответов 2 Метки нет (Все метки) Помогите пожалуйста! Завтра надо идти зачёт получать по ИТвР и там будет такая задача... Расположить в массиве R сначала положительные, а затем отрицательеные элементы массива Z. N<=40. 0

@Antonyk 0 / 0 / 0 Регистрация: 02.12.2015 Сообщений: 7
	10.12.2009, 20:58	3
	Спасибо большое... 0

Расположить в массиве R сначала положительные, а затем отрицательеные элементы массива Z

Решение