Одномерные массивы(Pascal) - Помощь студентам

Ember_ · 17.11.2012, 19:03

Дан массив размера N.Найти номера тех элементов массива,которые больше своего левого соседа, и количество таких элементов. Найденные номера выводить в порядке убывания.

Stilet · 17.11.2012, 19:33

Код:

for i:=n-1 downto 1 do if a[i]<a[i+1] then begin write(i+1:3); inc(count);end;writeln;
writeln(count);

Подходит?

17.11.2012, 19:03	#1
Ember_ Регистрация: 17.11.2012 Сообщений: 5	Одномерные массивы(Pascal) Дан массив размера N.Найти номера тех элементов массива,которые больше своего левого соседа, и количество таких элементов. Найденные номера выводить в порядке убывания.

17.11.2012, 19:33	#2
Stilet Белик Виталий :) Старожил Регистрация: 23.07.2007 Сообщений: 57,097	Код: `for i:=n-1 downto 1 do if a[i]<a[i+1] then begin write(i+1:3); inc(count);end;writeln; writeln(count);` Подходит? I'm learning to live...

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
одномерные массивы(pascal)	s4egol	Помощь студентам	1	04.11.2012 19:30
Одномерные массивы(Pascal)	swillrocker	Помощь студентам	11	21.05.2011 21:05
одномерные массивы. (pascal)	Диляра - новичок	Помощь студентам	7	01.12.2010 20:42
Одномерные массивы(Pascal)	Дима82	Помощь студентам	7	07.06.2008 15:33