Паскаль (написать блоки и программу)

Question

Нахождение номера наименьшего положительного числа в последовательности произвольных чисел, вводимых с клавиатуры. Остановить обработку при вводе заказанного количества чисел. Тип обработки данных-вещественные.

Евгения · Accepted Answer

Протестируйте, должна правильно работать: 
uses crt; 
var b, t: real; 
 a, n, k, g: integer; 
begin 
readln(n); 
a := 1; 
k := 1; 
g := 0; 
while (a<=n) do 
 begin 
 readln(t); 
 if (t<=0) then 
 begin 
 inc(a); 
 continue; 
 end; 
 if (k=1) then 
 begin 
 inc(k); 
 b := t; 
 g := a; 
 end; 
 if (t<=b) then g := a; 
 inc(a); 
 end; 
writeln(g); 
readln; 
end.