Ввести n целых чисел и определить, сколько из них больше своих соседей

@vasilinka · Регистрация: 02.03.2010

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

У меня задача:
используя цикл, написать программу, обеспечивающую ввод n целых чисел и определяющую, сколько из ни больше своих соседей

@unick12345 · 02.03.2010, 11:10

попробуй это

Pascal

program test;
uses crt;
const n=5;
var pr,tek,sl,i,c:integer;
begin
clrscr;
i:=1;
c:=0;
while i<=n do
begin
if i=1 then begin readln(pr); inc(i);end
else
if i=n then readln(sl);
if i=2 then begin readln(tek); inc(i);end;
if i<>n then readln(sl);
if (tek>pr) and (tek>sl) then inc(c);
pr:=tek; tek:=sl;
inc(i);
end;
writeln;
writeln('takih ',c);
readln;
end.

@vasilinka · 02.03.2010, 11:21 **[ТС]**

у меня задача:
используя цикл,написать программу, обеспечивающую ввод n целых чисел и определяющую, сколько из них больше своих соседей (без употребления массива!!!!)

Добавлено через 7 минут
спасибо, вроде что-то получилось. Попробую преподу сдать)

@unick12345 · 02.03.2010, 11:28

это уже не массив. все идет вручную

@vasilinka · 02.03.2010, 11:34 **[ТС]**

ну так он не правильно считатет!!!!!

Добавлено через 3 минуты
он постоянно пишет, что таких 0
что мне делать???

Добавлено через 29 секунд
он постоянно пишет, что таких 0
что мне делать???

@unick12345 · 02.03.2010, 13:09

vasilinka, дай пример чисел, проверю почему

@unick12345 · 02.03.2010, 13:52

у меня все норма. посмотрите сами

@Puporev · 02.03.2010, 13:58

vasilinka, Я скопировал код unick12345, , все работает правильно.

@vasilinka 0 / 0 / 0 Регистрация: 02.03.2010 Сообщений: 9
		1
	Ввести n целых чисел и определить, сколько из них больше своих соседей 02.03.2010, 10:55. Показов 1461. Ответов 7 Метки нет (Все метки) У меня задача: используя цикл, написать программу, обеспечивающую ввод n целых чисел и определяющую, сколько из ни больше своих соседей 0

@vasilinka 0 / 0 / 0 Регистрация: 02.03.2010 Сообщений: 9
	02.03.2010, 11:21 [ТС]	3
	у меня задача: используя цикл,написать программу, обеспечивающую ввод n целых чисел и определяющую, сколько из них больше своих соседей (без употребления массива!!!!) Добавлено через 7 минут спасибо, вроде что-то получилось. Попробую преподу сдать) 0

@unick12345 1856 / 1178 / 190 Регистрация: 27.03.2009 Сообщений: 4,558
	02.03.2010, 11:28	4
	это уже не массив. все идет вручную 0

@vasilinka 0 / 0 / 0 Регистрация: 02.03.2010 Сообщений: 9
	02.03.2010, 11:34 [ТС]	5
	ну так он не правильно считатет!!!!! Добавлено через 3 минуты он постоянно пишет, что таких 0 что мне делать??? Добавлено через 29 секунд он постоянно пишет, что таких 0 что мне делать??? 0

@unick12345 1856 / 1178 / 190 Регистрация: 27.03.2009 Сообщений: 4,558
	02.03.2010, 13:09	6
	vasilinka, дай пример чисел, проверю почему 0

@unick12345 1856 / 1178 / 190 Регистрация: 27.03.2009 Сообщений: 4,558
	02.03.2010, 13:52	7
	у меня все норма. посмотрите сами Миниатюры 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	02.03.2010, 13:58	8
	vasilinka, Я скопировал код unick12345, , все работает правильно. 0