Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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);
end.