Версия для печати темы

Автор: ladybird 13.09.2009 3:16

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

Задан одномерный массив, отсортировать елементы которые стоят на парной позиции по возрастанию, используя метод выбора.


Прикрепленные файлы
 MA.PAS ( 785 байт ) Кол-во скачиваний: 216

Автор: Lapp 13.09.2009 9:37

Я не знаю, что такое метод выбора. Исправил пару очевидных ошибок - вроде, работает..
Сравни детально и найди исправления (два важных, остальные неважные).

program lab;
uses crt;
const
  nm=10;
type
  mas=array[1..nm] of integer;
var
  i,j,ind,n,e:integer;
  m:mas;
  sh:char;

begin
  repeat
    clrscr;
    write('vvedite razmer massiva: ');
    readln(n);
    writeln('vvod elementov massiva');
    for i:=1 to n do begin
      write('vvedite M[',i,'] element masiva: ');
      readln(m[i]);
    end;
    for i:=1 to n-1 do if not odd(i) then begin
      e:=m[i];
      ind:=i;
      for j:=i+2 to n do if (not odd(j)) and (m[j]<e) then begin
        e:=m[j];
        ind:=j;
      end;
      m[ind]:=m[i];
      m[i]:=e;
    end;
    writeln('otsortirovanniy massiv');
    for i:=1 to n do write(m[i]:4);
    writeln;
    writeln('prodolzit(y/n)');
    readln(sh);
  until upcase(sh)='N';
end.

P.S.
если пишешь по-русски, то пиши "четный" вместо "парный", иначе тебя многие не поймут.

Автор: ladybird 14.09.2009 0:39

Ок.))Большое спасибо. Работает правильно.