Определить, сколько элементов последовательности больше своих "соседей"

@DimaFrosty · Регистрация: 19.10.2015

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

Есть задача:Дано N вещественных чисел. Определить ,сколько из них больше своих "соседей" , то есть предыдущего и последующего чисел.
Ребят нужно эту задачу написать на естественном языке, потом блок схема,pdl, и Паскаль. Ничего не понимаю и буду очень благодарен !!

@bormant · 19.10.2015, 10:36

Pascal

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.

@DimaFrosty · 19.10.2015, 10:38 **[ТС]**

То Паскаль программа, а как сделать pdl?
И естественным языком?

@DimaFrosty 0 / 0 / 0 Регистрация: 19.10.2015 Сообщений: 3
		1
	Определить, сколько элементов последовательности больше своих "соседей" 19.10.2015, 10:26. Показов 1629. Ответов 2 Метки нет (Все метки) Есть задача:Дано N вещественных чисел. Определить ,сколько из них больше своих "соседей" , то есть предыдущего и последующего чисел. Ребят нужно эту задачу написать на естественном языке, потом блок схема,pdl, и Паскаль. Ничего не понимаю и буду очень благодарен !! 0

@DimaFrosty 0 / 0 / 0 Регистрация: 19.10.2015 Сообщений: 3
	19.10.2015, 10:38 [ТС]	3
	То Паскаль программа, а как сделать pdl? И естественным языком? 0

Определить, сколько элементов последовательности больше своих "соседей"

Решение