Question

Пользователь вводит последовательность из 20 нат. чисел.Проверить есть ли в последовательности 5 нечётных чисел меньше 10. Отдаю все баллы нужно очень завтра или после завтра пожалуйста пишите на Паскале

Answer 1

var num, flag, i: Integer;

begin

   flag := 0;

   for i := 1 to 20 do

   begin

       Read(num);

       if ((num mod 2 = 1) and (num < 10)) then flag := flag + 1;

   end;

   

   if flag > 4 then Writeln('Yes') else Writeln('No')

end.

Можно написать и более эффективную программу, но и так сойдёт, думаю. И да, если требуется наличние ровно 5 чисел (не больше и не меньше), то замените flag > 4 на flag = 5.