37

Решить задачу на Pascal'е: Дано целое число N и набор из N вещественных чисел.…

30 января 2023

Решить задачу на Pascal'е: Дано целое число N и набор из N вещественных чисел. Проверить, образует ли данный набор возрастающую последовательность, если образует, то вывести True, если нет — вывести False

категория: информатика

57

Program 1; var n,i,G,x: realreadln (n); G: =true; i: =1; read (x); while (i <= n) and OK do begin x_pr: =x; read (x); if x_pr > x then G: =false; inc (i) end; writeln (G) readln; end.

Знаете ответ?

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...