не знаю как доделать прогу на паскале

[pavel42]

задание:
Сформировать новый массив из элементов, кратных заданному числу и расставить его элементы в обратном порядке.

вот что я сделал

program zadacha7;
uses crt;
type mass=array[1..50] of integer;
var x:mass; i,n,y,k,p:integer;

procedure p1(var n:integer; var x:mass);
          begin
          write('ўўҐ¤ЁвҐ Є®«ЁзҐбвў® н«Ґ¬Ґ*в®ў ¬*ббЁў* n=');
          readln(n);
          for i:=1 to n do
          begin
          x[i]:=random(10);
          writeln(x[i]);
          end;
          end;
procedure p2(n:integer; x:mass; var y,k:integer);
          begin
          write('‚ўҐ¤ЁвҐ §*¤***®Ґ зЁб«® y=');
          readln(y);
          writeln('ќ«Ґ¬Ґ*вл Єа*в*лҐ y ў ®Ўа**®¬ Ї®ап¤ЄҐ:');
          for i:=1 to n do
          if x[i] mod y = 0 then
          begin
          k:=1;
          while k<>0 do
          begin
          k:=0;
          for i:=1 to n-1 do
          begin
          if x[i]<x[i+1] then
          begin
          k:=1;
          p:=x[i];
          x[i]:=x[i+1];
          x[i+1]:=p;
          end;
          end;
          end;
          for i:=1 to n do
          writeln(x[i]);
          end;
          end;

begin
clrscr;
randomize;
p1(n,x);
p2(n,x,y,k);
readln
end.

у меня почему то выводит не только числа кратные y, а все элементы массив, до того как делал что бы выводилось в обратном порядке, то было все норм, тоесть выводил только числа краные y. И еще Сформировать новый массив??? это вообще не понимаю как.

[alex_fcsm]

а чтобы не сделать еще массив и туда занести искомые элементы а затем вывести их в обратном порядке.

program zadacha7;
uses crt;
type mass=array[1..50] of integer;
var x,yy:mass; i,n,y,k,p,j:integer;

procedure p1(var n:integer; var x:mass);
          begin
          write('ўўҐ¤ЁвҐ Є®«ЁзҐбвў® н«Ґ¬Ґ*в®ў ¬*ббЁў* n=');
          readln(n);
          for i:=1 to n do
          begin
          x[i]:=random(100);
          writeln(x[i]);
          end;
          end;
procedure p2(n:integer; x:mass; var y,k:integer;yy:mass);
          begin
          write('‚ўҐ¤ЁвҐ §*¤***®Ґ зЁб«® y=');
          readln(y);
          writeln('ќ«Ґ¬Ґ*вл Єа*в*лҐ y ў ®Ўа**®¬ Ї®ап¤ЄҐ:');
          j:=0;
          for i:=1 to n do
          if x[i] mod y = 0 then
          begin
            inc(j);
            yy[j]:=x[i];
          end;
          for i:=j downto 1 do
          writeln(yy[i]);
          end;

begin
clrscr;
randomize;
p1(n,x);
p2(n,x,y,k,yy);
readln
end.

[Stilet]

Сформировать новый массив из элементов, кратных заданному числу

нет охоты в твой код вникать, предложу свой, на скорую руку:

var a:array[1..10] of integer; k,i:integer;
begin
 write('Число ');readln(k);
 for i:=1 to 10 do begin
  write('a[',i,'] ');readln(a[i]); {Вводим элемент массив}
  if a[i] mod k<>0 then a[i];=0;{Сверяем его кратность и если некратен обнулим}
 end;
{Выведем на экран полученное}
  for i:=1 to 10 do  if a[i]<>0 then write(a[i]:5)
end.

Отсортируешь сам.

Да и еще, ребята. копируйте код с русскими символами, или пишите транслитом.

[pavel42]

я так понял что вы меня не поняли ))

program zadacha7;
uses crt;
type mass=array[1..50] of integer;
var x:mass; i,n,y,k,p:integer;

procedure p1(var n:integer; var x:mass);
          begin
          write('Введите количество элементов массива n=');
          readln(n);
          for i:=1 to n do
          begin
          x[i]:=random(10)+1;
          writeln(x[i]);
          end;
          end;
procedure p2(n:integer; x:mass; var y:integer);
          begin
          write('заданное число y=');
          readln(y);
          writeln('Элементы массива кратные y:');
          for i:=1 to n do
          if x[i] mod y = 0 then
          begin
          writeln(x[i]);
          end;
          end;
procedure p3(n,y:integer; x:mass; var k:integer);
          begin
          writeln('Кратные y и в обратном порядке') ;
          k:=1;
          while k<>0 do
          begin
          k:=0;
          for i:=1 to n-1 do
          begin
          if x[i]<x[i+1] then
          begin
          k:=1;
          p:=x[i];
          x[i]:=x[i+1];
          x[i+1]:=p;
          end;
          end;
          end;
          for i:=1 to n do
          writeln(x[i]);
          readkey;
          end;

begin
clrscr;
randomize;
p1(n,x);
p2(n,x,y);
p3(n,y,x,k);
readln
end.

вот мне нужно что бы в процедуре 3и он выводил не все числа массива, а только те которые кратны y

[alex_fcsm]

for i:=1 to n do
          if x[i] mod y= 0 then   writeln(x[i]);

[pavel42]

тогда можно вторую процеду вообще не писать, а в 3ей просто добавить ВВод у и все? я правильно мыслю ???

[alex_fcsm]

Сообщение от pavel42

тогда можно вторую процеду вообще не писать, а в 3ей просто добавить ВВод у и все? я правильно мыслю ???

Да, правильно

[pavel42]

program zadacha7;
uses crt;
type mass=array[1..50] of integer;
var x:mass; i,n,y,k,p:integer;

procedure p1(var n:integer; var x:mass);
          begin
          write('Количество элементов массива n=');
          readln(n);
          for i:=1 to n do
          begin
          x[i]:=random(10)+1;
          writeln(x[i]);
          end;
          end;
procedure p2(n:integer; x:mass; var y,k:integer);
          begin
          write('Заданное число y=');
          readln(y);
          writeln('Числа кратные У в обратном порядке');
          k:=1;
          while k <>0 do
          begin
          K:=0;
          for i:=1 to n-1 do
          begin
          if x[i]<x[i+1] then
          begin
          k:=1;
          p:=x[i];
          x[i]:=x[i+1];
          x[i+1]:=p;
          end;
          end;
          end;
          for i:=1 to n do
          if x[i] mod y = 0 then
          writeln(x[i]);
          end;

begin
clrscr;
randomize;
p1(n,x);
p2(n,x,y,k);
readln
end.

все работает...теперь подскажите как сформировать новый массив из того что получилось ??? ну под задание что бы подходило.
Сформировать новый массив из элементов, кратных заданному числу и расставить его элементы в обратном порядке.

[alex_fcsm]

program zadacha7;
uses crt;
type mass=array[1..50] of integer;
var x,nm:mass;
    n:integer;
procedure p1(var n:integer;var x:mass);
var i:integer;
          begin
          write('Количество элементов массива n=');
          readln(n);
          for i:=1 to n do
          begin
          x[i]:=random(100)+1;
          writeln(x[i]);
          end;
          end;
procedure p2(x:mass);
var i,j,y:integer;
          begin
          write('Заданное число y=');
          readln(y);
          for i:=n downto 1 do
          if x[i] mod y = 0 then
           begin
            inc(j);
            nm[j]:=x[i];
            writeln(nm[j]);
           end;
          end;

begin
clrscr;
randomize;
p1(n,x);
p2(x);
readln;
end.