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

Question

37

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

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

ответить

в избранное ссылка

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

bzmey · Accepted Answer

57

bzmey

22 марта 2023

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.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: