Регулярные типы данных. Одномерные массивы - Помощь студентам

bodya00728 · 17.11.2011, 18:41

Присвойте переменной t значение true, если в некотором массиве
нет нулевых элементов и при этом положительные элементы череду-
ются с отрицательными, в противном случае присвойте значение
false.

IT-man · 17.11.2011, 18:48

Код:

t:=true;
for i:=1 to n-1 do
if a[i]*a[i+1]>=0 then begin t:=false;break;end;

Serge_Bliznykov · 17.11.2011, 22:57

IT-man, Браво! Отличное решение!

IT-man · 18.11.2011, 04:56

Цитата:

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

IT-man, Браво! Отличное решение!

"А я еще на машинке умею....." (с) Э.Успенский

17.11.2011, 18:41	#1
bodya00728 Пользователь Регистрация: 08.11.2011 Сообщений: 10	Регулярные типы данных. Одномерные массивы Присвойте переменной t значение true, если в некотором массиве нет нулевых элементов и при этом положительные элементы череду- ются с отрицательными, в противном случае присвойте значение false.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
типы данных	sp@ker	Общие вопросы Delphi	8	26.04.2011 20:48
Перечислимые типы и символьные массивы. Pascal.	NaniDesKa	Помощь студентам	4	14.03.2010 07:32
Даны одномерные массивы А и В. Сформировать массивы, состоящие из элемент	LyaLya	Помощь студентам	15	20.12.2009 14:12
Комбинированные типы данных и массивы	mar4elo	Общие вопросы Delphi	11	01.12.2008 10:41

17.11.2011, 22:57	#3
Serge_Bliznykov Старожил Регистрация: 09.01.2008 Сообщений: 26,229	IT-man, Браво! Отличное решение!