Определите процедуру p(x,y), которая создает массив, переставив элементы (сначала идут все положительные числа)

@hellkreet · Регистрация: 05.01.2012

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

Определите процедуру p(x,y), которая для данного
массива чисел x создает массив y, состоящий из элементов массива
x, но переставленных так, что сначала идут все положительные
числа, а потом все остальные.

Pascal

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.

Добавлено через 8 часов 58 минут
Народ помогите переделать программу =((( Завтра нужно сдавать.

@ermolay · 14.06.2012, 16:44

Pascal

type
  tArr=array[1..20] of integer;
 
procedure init(var ar: tArr);
var i: integer;
begin
  Writeln('Массим X: ');
  for i := 1 to 20 do
  begin
    ar[i] := -100 + random(201);
    write(ar[i], ' '); 
  end;
  writeln;
end;
 
procedure change(var ar: tArr);
var i: integer;
begin
  Writeln('Массим Y: ');
  for i := 1 to 20 do
    if ar[i] > 0 then write(ar[i], ' ');
  for i := 1 to 20 do
    if ar[i] = 0 then write(ar[i], ' ');
  for i := 1 to 20 do
    if ar[i] < 0 then write(ar[i], ' ');  
end;
 
var
  a: tArr;
begin
  init(a);
  change(a);
  readln;
end.

Добавлено через 4 минуты
программа рабочая, вот только пара вопросов возникло:
- кто такой Массим? =)
- что написано в задании: создать другой Массим или преобразовать существующий?
если создать другой, то это будет уже не а, а к примеру b, если преобразовать существующий, то не Массим Y, а Преобразованный массим Х..... имхо..

@Das Gespenst · 14.06.2012, 16:47

Лови!

Pascal

program z;
var i,n:integer;
x,y:array [1..100] of integer;
procedure p(x1:array [1..100] of integer; n1:integer; var y1:array [1..100] of integer);
     var i,j:integer;
     begin
          j:=1;
          for i:=1 to n1 do
              if x1[i]>0
                 then
                     begin
                          y1[j]:=x1[i];
                          j:=j+1;
                     end;
          for i:=1 to n1 do
              if x1[i]=0
                 then
                     begin
                          y1[j]:=x1[i];
                          j:=j+1;
                     end;
          for i:=1 to n do
              if x1[i]<0
                 then
                     begin
                          y1[j]:=x1[i];
                          j:=j+1;
                     end;
     end;
begin
     write('Ðàçìåð ìàññèâà: ');
     readln(n);
     writeln('Ââîä ýëåìåíòîâ ìàññèâà: ');
     for i:=1 to n do
         begin
              write('x[',i,']=');
              readln(x[i]);
         end;
     writeln('Ìàññèâ X');
     for i:=1 to n do
         write(x[i],' ');
     writeln;
     p(x,n,y);
     writeln('Ìàññèâ Y');
     for i:=1 to n do
         write(y[i],' ');
end.

@hellkreet · 14.06.2012, 17:07 **[ТС]**

Спасибо большое за программу!

@hellkreet 0 / 0 / 0 Регистрация: 05.01.2012 Сообщений: 11
	14.06.2012, 17:07 [ТС]	4
	Спасибо большое за программу! 0

Опции темы