Переписать подряд в массив Y положительные и в массив Z отрицательные элементы массива X(N)

@Adiga-07 · Регистрация: 11.02.2010

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

@Unrealler · 04.03.2010, 21:28

Pascal

uses crt;
var
   y,z,x:array[1..100] of integer;
   i,n,a,b:integer;
begin
clrscr;
write('Ââåäèòå êîëè÷åñòâî ýëåìåíòîâ ïåðâîãî ìàññèâà=');
readln(n);
writeln('Ìàññèâ x');
randomize;
for i:=1 to n do
 begin
  x[i]:=random(51)-10;
  write(x[i]:4);
  if (x[i]>0) then
   begin
    inc(a);
    y[a]:=x[i];
   end;
  if (x[i]<0) then
   begin
    inc(b);
    z[b]:=x[i];
   end;
 end;
writeln;
writeln('Ìàññèâ y');
for i:=1 to a do
 write(y[i]:4);
writeln;
writeln('Ìàññèâ z');
for i:=1 to b do
 write(z[i]:4);
readln
end.

@Adiga-07 4 / 4 / 1 Регистрация: 11.02.2010 Сообщений: 74
		1
	Переписать подряд в массив Y положительные и в массив Z отрицательные элементы массива X(N) 04.03.2010, 21:22. Показов 1949. Ответов 1 Метки нет (Все метки) Переписать подряд в массив Y положительные и в массив Z отрицательные элементы массива X(N) 0

	04.03.2010, 21:28

Переписать подряд в массив Y положительные и в массив Z отрицательные элементы массива X(N)

Решение