Последовательность чисел, 2 наименьших числа Опции

[topoR]

Помогите решить задачу

Вводится последовательность чисел. 0 - конец последовательности. НАйти 2 наименьших числа.

[topoR]

Вот еще одна задачка.. Такого же типа.

Дана последовательность чисел, также заканчивающаяся на ноль. Определить, сколько раз в последовательности числа меняют свой знак.


Вроде бы с помощью массива решается элементарно. Однако их запретили использовать ..

Решил без них.. Боюсь, что заставят перерешивать всвязи с отдельным вводом первого числа и всей последовательности в целом. Кто чем поможет?

 
program n1;
uses crt;
var a,i,x,y : integer;
begin
clrscr;
writeln ('Vvedite pervoe 4islo');
readln (i);
repeat

  writeln ('Vvedite sleduushee chislo');
  readln (a);
if (a <> 0) then
begin
if (a*i < 0) then
begin
y:=y+1;
i:=a;
end;
end;

until a=0;

writeln ('Posledovatelnost menaet znak'     ,y,      'raz');
readln;
end.

.