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

@LUI7 · Регистрация: 04.12.2011

Дан массив X. Получить новый массив Y такой, что в нем сначала идут положительные числа, затем нулевые, затем отрицательные массива X. Размерность массива 20. Заполнение массива осуществить случайными числами от -100 до 100.

Помогите пожалуйста.Срочно нужно...Буду очень благодарен.

@versa4e · 04.12.2011, 23:52

Pascal

const
  n=20;
type
  mas=array[1..n] of integer;
var
  x,y:mas;
  i,k:integer;
begin
  randomize;
  writeln('Ishodniy massiv X:');
  for i:=1 to n do
    begin
      x[i]:=-100+random(201);
      write(x[i]:4);
    end;
  writeln;
  k:=0;
  for i:=1 to n do
    if x[i]>0 then
      begin
        inc(k);
        y[k]:=x[i];
      end;
  for i:=1 to n do
    if x[i]=0 then
      begin
        inc(k);
        y[k]:=x[i];
      end;
  for i:=1 to n do
    if x[i]<0 then
      begin
        inc(k);
        y[k]:=x[i];
      end;
  writeln('Massiv Y:');
  for i:=1 to n do
    write(y[i]:4);
end.

@WebMax 2.0 · 05.12.2011, 00:02

Pascal

Uses crt;
 
var a:array [1..20] of integer;
i:integer;
 
begin
   Writeln('Ìàññèì X: ');
   For i:=1 to 20 do
     begin
     randomize;
     a[i]:=-100+random(201);
     write(a[i],' ');
     end;
   Writeln;
   Writeln('Ìàññèì Y: ');
   For i:=1 to 20 do
     if a[i]>0 then write(a[i],' ');
   For i:=1 to 20 do
     if a[i]=0 then write(a[i],' ');
   For i:=1 to 20 do
     if a[i]<0 then write(a[i],' ');
end.

@КонецСвета · 05.12.2011, 19:20

Pascal

Program massiv;
 var x,y:array[1..20] of integer;
 i,k:integer;
 begin
 randomize;
 writeln('Исходный массив X:');
 for i:=1 to 20 do
     begin
     x[i]:=-100+random(201);
     write(x[i]:4);
     end;
 writeln;
 k:=0;
 for i:=1 to 20 do
     if x[i]>0 then
        begin
        inc(k);
        y[k]:=x[i];
        end;
 for i:=1 to 20 do
     if x[i]=0 then
        begin
        inc(k);
        y[k]:=x[i];
        end;
 for i:=1 to 20 do
     if x[i]<0 then
        begin
        inc(k);
        y[k]:=x[i];
        end;
 writeln('Массив Y:');
 for i:=1 to 20 do
     write(y[i]:4);
 end.

@КонецСвета · 05.12.2011, 21:00

посмотри, как качество... если не пойдет, разрежу на куски

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

Решение

Решение

Решение

Решение

@LUI7 0 / 0 / 0 Регистрация: 04.12.2011 Сообщений: 6
		1
	Получить новый массив, где сначала идут положительные числа, затем нулевые, затем отрицательные 04.12.2011, 22:27. Показов 3473. Ответов 4 Метки нет (Все метки) Дан массив X. Получить новый массив Y такой, что в нем сначала идут положительные числа, затем нулевые, затем отрицательные массива X. Размерность массива 20. Заполнение массива осуществить случайными числами от -100 до 100. Помогите пожалуйста.Срочно нужно...Буду очень благодарен. 0

@КонецСвета Почетный модератор 7966 / 3937 / 2464 Регистрация: 30.10.2011 Сообщений: 5,377
	05.12.2011, 21:00	5
	Сообщение было отмечено Памирыч как решение Решение посмотри, как качество... если не пойдет, разрежу на куски Миниатюры 0

Опции темы