Ввести 20 елементів масиву (числа менші 100 ) за до генератора випадкових чисел. Вивести масив на екран. Знайти кількість непарних чисел в масиві. PascalABC 1
program Metka; \\ Даем имя метке label M1; \\ Даем имя переменной х var x: shortint; \\ Начало программы begin \\ Выводим текст с ввода числа M1:writeln ('Введите x>100'); \\ Запрос на ввод числа readln(x); \\ Если введенное число <=100 то идем на М1 if x<=100 then GOTO M1 \\ Конец программы end.
Два недочета 1) нет точки с запятой после writeln ('x>100') 2) Неверное условие - должно быть <=, т.к. при х=100 условие х>100 не должно выполняться. 3) Желательно попросить ввести х>100 - слово Введите - не лишнее
