Программу оформить в паскале)
Даны натуральное число n и целые числа . Выяснить, верно ли, что количество тех чисел , которые меньше 20, равно пяти.
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
