Массив, Одномерный массив Опции

[Wizzy]

Здравствуйте, появились проблемы, при решении данной задачи:
Дан массив х вещественных чисел. Получить упорядоченный по невозрастанию массив, состоящий из чисел данного массива, находящихся между предпоследним и последним отрицательным членом. (Проверить массив на наличие элементов между ними)

program mass;

var
  i, j, k, n, d: integer;
  x: real;
  a, s: array [1..10] of real;

begin
  writeln('Программа выводит элементы массива, расположенные между предпоследним и последним отрицательными числами');
  writeln('Введите количество элементов массива');
  read(n);
  k := 0;
  j := 0;  
  writeln('Введите элементы массива');
  for i := 1 to n do  {Ввод массива}
	read(s[i]);
  
  while k <> 2 do {Нахождение двух отрицательных чисел}
  begin
	for i := 1 to n do {Проверяем массив}
	begin
	  if s[i] < 0 {Если элемент массива отрицателен}
	  then
	  begin
		a[i] := s[i]; {присваиваем отрицательные числа массива s массива a}
		k := k + 1; {счётчит отрицательных элементов массива}
	  end;
	end;
  end;
  



  for i := 1 to n - 1 do {упорядочивание массива по убыванию}
	for j := i + 1 to n do
	  if s[i] < s[j] then
	  begin
		x := s[i];
		s[i] := s[j];
		s[j] := x;
	  end;
  
  for i := 1 to n do
	write(s[i], ' ');  {Вывод массива}
  writeln;
end.

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

[Wizzy]

Код

const
  n = 10;

var
  mas, m: array [1..n] of integer;
  a: array [1..2] of byte;
  i, k: byte;
  j, x: integer;

begin
  writeln('Программа выводит элементы массива, расположенные между предпоследним и последним отрицательными числами');
  writeln('Введите массив');
  for i := 1 to n do read(mas[i]);
  a[1] := n;
  a[2] := n;
  k := 2;
  i := n;
  while (i > 0) and (k > 0) do
  begin
    if mas[i] < 0 then begin
      a[k] := i;
      dec(k);
    end;
    dec(i);
  end;
  for i := a[1] + 1 to a[2] - 1 do
    m[i] := mas[i];
  for i := 1 to n - 1 do {упорядочивание массива по убыванию}
    for j := i + 1 to n do
      if m[i] < m[j] then
      begin
        x := m[i];
        m[i] := m[j];
        m[j] := x;
      end;
      for i:=1 to n do
      write (' ', m[i]);
end.

спасибо огромное )

Сообщение отредактировано: Wizzy - 4.11.2010 14:25