В простую переменную последовательно вводятся числа. Окончание ввода 0. Сколько чисел больше своих соседей сле

@tallu · Регистрация: 08.11.2016

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

В простую переменную последовательно вводятся числа. Окончание ввода 0. Сколько чисел больше своих соседей слева и справа?

@D1973 · 13.11.2016, 08:16

Если я скажу: "пять", Вас это устроит?

@kirillofficial · 13.11.2016, 08:19

Сообщение от tallu

В простую переменную последовательно вводятся числа. Окончание ввода 0. Сколько чисел больше своих соседей слева и справа?

И что? Вам код решения этой задачи написать?

@Puporev · 13.11.2016, 08:38

Примерно так. Это для консоли.

Delphi

var a,b,c:double;
    k:integer;
begin
writeln('Введите 3 числа');
readln(a,b,c);
k:=0;
if (b>a)and(b>c)then k:=1;
writeln('Введите еще числа, окончание ввода 0');
a:=b;
b:=c;
repeat
readln(c);
if (b>a)and(b>c)then k:=k+1;
a:=b;
b:=c;
until c=0;
write('Количество чисел больших своих соседей=',k);
readln
end.

@tallu 0 / 0 / 0 Регистрация: 08.11.2016 Сообщений: 17
		1
	В простую переменную последовательно вводятся числа. Окончание ввода 0. Сколько чисел больше своих соседей сле 12.11.2016, 18:25. Показов 1418. Ответов 3 Метки нет (Все метки) В простую переменную последовательно вводятся числа. Окончание ввода 0. Сколько чисел больше своих соседей слева и справа? 0

@D1973 Модератор 9234 / 6017 / 2374 Регистрация: 21.01.2014 Сообщений: 25,716 Записей в блоге: 3
	13.11.2016, 08:16	2
	Если я скажу: "пять", Вас это устроит? 1

@kirillofficial 0 / 0 / 0 Регистрация: 29.06.2015 Сообщений: 27
	13.11.2016, 08:19	3
	Сообщение от tallu В простую переменную последовательно вводятся числа. Окончание ввода 0. Сколько чисел больше своих соседей слева и справа? И что? Вам код решения этой задачи написать? 0

	13.11.2016, 08:38

Опции темы