Упорядочит по возростанию чётные и не чётные элементы массива

@Natrix · Регистрация: 21.12.2009

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

Добрый день! у меня возникла проблемка с алгоритмом. Вобщем задание звучит таким образом
Дан одномерный масив. В нём найти 1) произведение положительных элементов и 2) сумму всех элементов масиве не включая минимальный. Первые 2 задания я зделал но 3 задание звучит таким образом: упорядочит по возростанию отдельно чётные и не чётные элементы массива! Кто знает, помогите пожалуйста. вот алгоритм первых двух заданий

Pascal

Program Masiv;
  Uses CRT;
  Type mas =array [1..50] of integer;
Var      a: mas;
         S,i,n,pr,min: integer;
Begin
 CLRSCR;
 Write('n=');
 Readln(n);
 pr:=1;
 S:=0;
 min:=1;
 For i:= 1 to n do
   Begin
     Write('a[',i,']=');
     readln(a[i]);
   end;
   For i:= 1 to n do
     If a[i]>0 then
       pr:=pr*a[i];
     For I:=min+1 to n do
       if a[i]<a[min] then
         min:=i;
       for i:=1+min to n do
         S:=s+a[i];
  Writeln('S=',S);
  Writeln('pr=',pr);
  Readln;
end.

@Snoopy · 21.01.2010, 19:37

Pascal

for i:=1 to n do
 for j:=i to n do
  if (a[i]<a[j]) then
   begin
   if (odd(a[i])) then
   begin
    x:=a[i];
    a[i]:=a[j];
    a[j]:=x;
   end;
  else
   begin
    x:=a[i];
    a[i]:=a[j];
    a[j]:=x;
   end;
  end;
end;

@Natrix · 21.01.2010, 20:03 **[ТС]**

спасибо большое

Добавлено через 17 минут
хм.....что то алгоритм работать коректно не хочет

@Snoopy · 21.01.2010, 20:08

ну выложите ваш код с сортировкой, я посмотрю
там точку с запятой уберите где проверка на четность, иначе

@Natrix · 21.01.2010, 20:12 **[ТС]**

Я просто не сильно ещё разбираюсь в сортирвках, то возможно где то и допустил ошибку

Pascal

Program lab4_2;
  Uses CRT;
Var   a:array [1..50] of integer;
      b:array [1..50] of integer;
         x,j,S,i,n,pr,min: integer;
Begin
 CLRSCR;
 Write('n=');
 Readln(n);
 pr:=1;
 S:=0;
 min:=1;
 For i:= 1 to n do
   Begin
     Write('a[',i,']=');
     readln(a[i]);
   end;
   For i:= 1 to n do
     If a[i]>0 then
       pr:=pr*a[i];
     For I:=min+1 to n do
       if a[i]<a[min] then
         min:=i;
       for i:=1+min to n do
         S:=s+a[i];
  Writeln('S=',S);
  Writeln('pr=',pr);
  Readln;
for i:=1 to n do
 for j:=i to n do
  if (a[i]<a[j]) then
   begin
   if (odd(a[i])) then
   begin
    x:=a[i];
    a[i]:=a[j];
    a[j]:=x;
   end
  else
   begin
    x:=a[i];
    a[i]:=a[j];
    a[j]:=x;
   end;
  end;
  Writeln('b[',j,']=',b[j]);
  Readln;
end.

@Snoopy · 21.01.2010, 22:29

это я вам не правильно написал, сейчас исправлю

Добавлено через 2 часа 8 минут
вот я вам написал заново всю программу, сортировка по индексам, т.к по элементам невозможно проверить правильно сортируется или нет
для проверки смотрите сначала начиная с первого и через 1 элемент как сортируется, потом начиная со второго и через 1!

Pascal

uses crt;
var a:array[1..100] of integer;
    i,j,p,min,imin,x,n,sum,k:integer;
begin
ClrScr;
Randomize;
Write('n=');
Readln(n);
for i:=1 to n do
 begin
  a[i]:=random(20)-10;
  Write(a[i],'  ');
 end;
Writeln;
min:=a[1];
imin:=1;
for i:=1 to n do
 if a[i]<min then
  begin
   min:=a[i];
   imin:=i;
  end;
Writeln('Min ',min,' [',imin,']');
p:=1;
for i:=1 to n do
 if a[i]>0 then
  p:=p*a[i];
Writeln('P=',p);
sum:=0;
for i:=1 to n do
 sum:=sum+a[i];
Writeln('Sum ',sum-a[imin]);
Writeln('Sort: ');
for i:=1 to n do
for j:=i to n do
 if (a[i]<a[j]) and (i mod 2=0) then
  begin
   x:=a[i];
   a[i]:=a[j];
   a[j]:=x;
  end;
for i:=1 to n do
for j:=i to n do
 if (a[i]<a[j]) and (i mod 2<>0) then
  begin
   k:=a[i];
   a[i]:=a[j];
   a[j]:=k;
  end;
for i:=1 to n do
 Write(a[i],'  ');
Readln;
end.

@Natrix · 21.01.2010, 22:33 **[ТС]**

спасибо большое!! а там дальше разберусь!

@Natrix 5 / 5 / 1 Регистрация: 21.12.2009 Сообщений: 26
	21.01.2010, 20:03 [ТС]	3
	спасибо большое Добавлено через 17 минут хм.....что то алгоритм работать коректно не хочет 0

@Snoopy 1915 / 1065 / 384 Регистрация: 06.12.2008 Сообщений: 2,802
	21.01.2010, 20:08	4
	ну выложите ваш код с сортировкой, я посмотрю там точку с запятой уберите где проверка на четность, иначе 1

@Natrix 5 / 5 / 1 Регистрация: 21.12.2009 Сообщений: 26
	21.01.2010, 22:33 [ТС]	7
	спасибо большое!! а там дальше разберусь! 0

Опции темы