Решение ваших проблем...

[К@t@LoNeЦ]

Сообщение от Foxara

if A[i] ???

это не надо, по ошибке скопировал

Сообщение от Foxara

В первой задачке у тебя в условии 29 написано, а в программе 20.

опять же моя ошибка в тектсе,надо ,правильно,20.

Сообщение от Foxara

If (A[i]>160) or (A[i]<200) then i:=i+1;

зачем это?я же ищю минимальное значение из поступивщих в команду

Сообщение от Foxara

Должно быть:
for i:=1 to N do
begin
readln(A[i]);
If (A[i]<160) or (A[i]>200) then Writeln('S takim rostom uchenika ne vozmut v komandu');
If (A[i]<70) or (A[i]>220) then Writeln('Nakogo rosta ne mozhet bit u vipusknika');
If (A[i]<0) then Writeln('Takogo rosta ne bivaet');
If (A[i]>160) or (A[i]<200) then i:=i+1;
end;

ты просто под один for загнал,смысл то не меняется.Программа у меня работает правильно,я ее во всех случаях протестировал.


х - это и есть минимальное значение(рост).просто в задании нельзя менять переменные.Весь Var - это все из дано