Определить, сколько элементов последовательности больше своих "соседей" - Pascal
Формулировка задачи:
Есть задача:Дано N вещественных чисел. Определить ,сколько из них больше своих "соседей" , то есть предыдущего и последующего чисел.
Ребят нужно эту задачу написать на естественном языке, потом блок схема,pdl, и Паскаль. Ничего не понимаю и буду очень благодарен !!
Решение задачи: «Определить, сколько элементов последовательности больше своих "соседей"»
textual
Листинг программы
var
a, b, c, n, m: Integer;
begin
repeat Write('Введите N: '); ReadLn(n) until n>2;
Write('Введите ',n,' чисел');
Read(a,b); m:=0;
for n:=3 to n do begin
Read(c);
if (b>a) and (b>c) then Inc(m);
a:=b; b:=c;
end;
WriteLn('Больше соседей: ',m);
end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д