дан массив

[VilleVonka]

Пожалуйста, все кто в состоянии помочь помогите, нужно решить задачку для одного хорошего человека.
Условие задачи: дан массив А=(а1,...,аn). Расположить четные элементы массива в порядке возрастания,сформировав для этого массив В=(в1,...вm), и в порядке убывания расположить нечетные элементы, сформировав из них массив C=(c1,...ск). Составить схему алгоритма и программу.

[ROMA2PVT]

ну а что хороший человек сам не в состоянии?

[VilleVonka]

нет ) учится в медицинском (2 курс), а как известно 1 и 2 курс общеобразовательные предметы. А врачу как водится не нужна информатика )))

[ROMA2PVT]

я так понял что нужно просто два массива создать.Один из чётных элементов,второй из нечётных.Если так то вот:

Uses
   CRT;
Var
  a,b,c:array [1..100] of integer;
  i,n,kol1,kol2,d,j:integer;
begin
Clrscr;
randomize;
kol1:=0;
kol2:=0;
write('Введите количество элементов массива A:=');
readln(N);
  writeln('Массив A:');
     for i:=1 to n do
         begin
            a[i]:=random(10)-3;
            write(a[i]:2,' ');
               if odd(a[i]) then
                  begin
                     inc(kol1);
                     b[kol1]:=a[i];
                  end;
               if not odd(a[i]) then
                  begin
                     inc(kol2);
                     c[kol2]:=a[i];
                  end;
         end;
    writeln;
    {сортируем по убыванию массив нечётных элементов}
    for i:=1 to kol1-1 do
     for j:=1 to kol1-i do
       if b[j]<=b[j+1] then
          begin
             d:=b[j];
             b[j]:=b[j+1];
             b[j+1]:=d;
          end;
          writeln('Massiv B: ');
    for i:=1 to kol1 do
       begin
           write(b[i]:2,' ');
       end;
    writeln;
    {сортируем по возрастанию массив чётных элементов}
    for i:=1 to kol2-1 do
       for j:=1 to kol2-i do
         if c[j]>=c[j+1] then
           begin
              d:=c[j];
              c[j]:=c[j+1];
              c[j+1]:=d;
           end;
          writeln('Massiv С: ');
     for i:=1 to kol2 do
          begin
             write(c[i]:2,' ');
          end;
    readkey;
    end.

[Grag]

Если хороший человек закинет несколько рублей на сотовый (или Яндекс.Деньги), то сделаю быстро и качественно...
Контакты:
e-mail: delmas-61@mail.ru
icq: 585281783
Skype: delmas61

[VilleVonka]

Огромнейшее спасибо ))) медицины тебя не забудет )))
А насчет схемы алгоритма есть возможность помочь?

[ROMA2PVT]

я так понял что нужно просто два массива создать.Один из чётных элементов,второй из нечётных.Если так то вот:

видите что я написал.Ты для начала выясни тебе надо исходный массив отсортировать или эти два массива.

[VilleVonka]

Ну из условия я так понимаю из массива А, нужно сформировать массив В и массив С.
Девушка которая передала мне это условие на твой вопрос ".. выясни тебе надо исходный массив отсортировать или яти два массива.?" ответила "эээ..."

[Grag]

А вот я лично понимаю так что :

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

и все это относится к исходному массиву... И только потом в задании упоминаются дополнительные массивы В и С...

[VilleVonka]

а что выполняют kol1 и kol2?