Program p1; Var: menee_dvadcati,n,i,x:integer; Begin
x:=0; //обнуляем x Readln(n);//считываем n For i:=1 to n do Begin Readln(x);//ввод числа If x<20 then//проверка (больше 20?) menee_dvadcati:=menee_dvadcati+1;//считаем количество end; If menee_dvadcati>5 then //проверка (больше 5?) Writeln('Да') else Writeln('Нет'); End.
Answers & Comments
Program p1;
Var: menee_dvadcati,n,i,x:integer;
Begin
x:=0; //обнуляем x
Readln(n);//считываем n
For i:=1 to n do
Begin
Readln(x);//ввод числа
If x<20 then//проверка (больше 20?)
menee_dvadcati:=menee_dvadcati+1;//считаем количество
end;
If menee_dvadcati>5 then //проверка (больше 5?)
Writeln('Да') else
Writeln('Нет');
End.