Решить задачу на Pascal'е:

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

Question

Информатика

Лева

26 октября, 21:09

Решить задачу на Pascal'е:

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

+1

Ответы (1)

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

Андрон · Answer 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.