"Пилообразная" последовательность чисел

@Домолаз · Регистрация: 08.04.2010

Author24 — интернет-сервис помощи студентам

2.Дано целое число n (3 to 10^6) и N вещественных чисел. Выяснить, является ли последовательность пилообразной(каждый элемент,имеющий 2 соседей,или строго больше,или строго меньше обоих своих соседей).

@кот Бегемот · 18.04.2010, 09:52

Сообщение от Домолаз

2.Дано целое число n (3 to 10^6) и N вещественных чисел. Выяснить, является ли последовательность пилообразной(каждый элемент,имеющий 2 соседей,или строго больше,или строго меньше обоих своих соседей).

Pascal

var
n:longint;
i,f:integer;
a:array[1..10000]of real;
begin
writeln('vvedite kolichestvo chisel');
readln(n);
for i:=1 to n do
begin
writeln('vvedite ocherednoe chislo');
readln(a[i]);
end;
for i:=2 to n-1 do
begin
if (a[i]=a[i-1])or(a[i]=a[i+1])then f:=1;
if (a[i]<a[i-1])and(a[i]>a[i+1]) then f:=1;
if (a[i]>a[i-1])and(a[i]<a[i+1]) then f:=1;
end;
if f=0 then writeln('yes')else writeln('no');
readln;
end.

@Домолаз нэ 64 / 64 / 42 Регистрация: 08.04.2010 Сообщений: 166
		1
	"Пилообразная" последовательность чисел 17.04.2010, 23:12. Показов 2500. Ответов 1 Метки нет (Все метки) 2.Дано целое число n (3 to 10^6) и N вещественных чисел. Выяснить, является ли последовательность пилообразной(каждый элемент,имеющий 2 соседей,или строго больше,или строго меньше обоих своих соседей). 0

	18.04.2010, 09:52

Опции темы

"Пилообразная" последовательность чисел

Решение