Вывести ** экран дисплея номера элементов массива, удовлетворяющих условию 0 <хi<3,2

Question

Вывести на экран дисплея номера элементов массива, удовлетворяющих условию 0 <хi<3,2

Answer 1

Var i,n:integer;x:array[1..100] of integer;
begin 
readln(n);
for i:=1 to n do 
readln(x[i]);
fvor i:=1 to n do
if (x[i]>0) and (x[i]<3.2)  then writeln(i);<br>end.