Question

Программу оформить в паскале) Даны натуральное число n и целые числа . Выяснить, верно ли, что количество тех чисел , которые меньше 20, равно пяти.

Answer 1

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.