Вопрос по информатике:
Решить задачу на Pascal'е:
Дано целое число N и набор из N вещественных чисел. Проверить, образует ли данный набор возрастающую последовательность, если образует, то вывести True, если нет - вывести False
- 11.07.2018 14:18
- Информатика
- remove_red_eye 6573
- thumb_up 14
Ответы и объяснения 1
Program 1;
var n,i,G,x:real
readln(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.
- 12.07.2018 07:17
- thumb_up 33
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.