Foxara, а все пардон,а не "по ошибке скопировал",а не докопировал
вот что должно быть:
for i:=1 to N do
if (A[i]>=160) and (A[i]<=200) then
если A[i]>х тогда х присуждай значение A[i] ;
Writeln('x=',x);
readln;
End.
эээ че за хрень пишу тескт,а остается только это
он не пишет текст после if A[i]
короче у меня там : если A[i] меньше х тогда x:=A[i];