Цитата:
|
Сообщение от 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 - это все из дано