Предмет: Информатика,
автор: VadyaGT
Решить задачу на Pascal'е:
Дано целое число N и набор из N вещественных чисел. Проверить, образует ли данный набор возрастающую последовательность, если образует, то вывести True, если нет - вывести False
Ответы
Автор ответа:
0
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.
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.
Похожие вопросы
Предмет: Математика,
автор: Jumanji7
Предмет: История,
автор: angelinarabus
Предмет: Алгебра,
автор: Lisitsynavika23
Предмет: Литература,
автор: palchenko