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

@Lectar · Регистрация: 16.10.2014

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

Всем привет. Не знаю как решить задачу на паскале. Без массивов. Заранее спасибо.

Дано 100 вещественных чисел. Определить, сколько из них больше своих «соседей», т.е. предыдущего и последующего чисел.

@Puporev · 16.10.2014, 18:18

Pascal

var i,k:integer;
    a,b,c:real;
begin
randomize;
a:=5*random;
b:=5*random;
writeln('  ');
write(a:5:2,b:5:2);
k:=0;
for i:=3 to 100 do
 begin
  c:=5*random;
  write(c:5:2);
  if(b>a)and(b>c) then inc(k);
  a:=b;
  b:=c;
 end;
writeln;
write('Количество чисел больших своих соседей = ',k)
end.

@Lectar 1 / 1 / 2 Регистрация: 16.10.2014 Сообщений: 38
		1
	Определить, сколько элементов последовательности больше своих соседних элементов 16.10.2014, 17:30. Показов 1592. Ответов 1 Метки нет (Все метки) Всем привет. Не знаю как решить задачу на паскале. Без массивов. Заранее спасибо. Дано 100 вещественных чисел. Определить, сколько из них больше своих «соседей», т.е. предыдущего и последующего чисел. 0

Опции темы

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

Решение