Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > Delphi > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 24.11.2015, 18:25   #1
ANTON66
 
Регистрация: 24.11.2015
Сообщений: 4
По умолчанию .Определить сколько раз в декабре температура меняла знак .

написать программу Делфи . Пусть в массиве содержиться результаты измерений температуры воздуха , которые проводились ежедневно в течении декабря месяца.Определить сколько раз в декабре температура меняла знак .
ANTON66 вне форума Ответить с цитированием
Старый 24.11.2015, 19:00   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,840
По умолчанию

Попытки? Наработки? Хотя бы ввод массива.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 28.11.2015, 17:23   #3
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,802
По умолчанию

Код:
procedure TForm1.Button1Click(Sender: TObject);
var i,s:integer;
    p:array[1..31] of integer;
begin
   Randomize;
   For i:=1 to 30 do
      p[i]:=-30+Random(40);
   s:=0;
   For i:=1 to 30 do
      If p[i]*p[i+1]<0 then
         s:=s+1;
   Label1.Caption:=IntToStr(s);
end;
Сойдет?
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.narod.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
сколько раз меняется знак shalgan Помощь студентам 3 08.04.2014 17:53
Дана последовательность ненулевых целых чисел,оканчивающая нулем.Определить,сколько раз в этой последовательности меняеться знак.( Salomon9393 Помощь студентам 0 07.12.2012 17:59
массив. сколько раз меняется знак в данной последовательности чисел BERT Помощь студентам 3 10.03.2009 18:02
Определить, сколько раз в последовательности меняется знак Siroga35 Паскаль, Turbo Pascal, PascalABC.NET 1 22.01.2009 12:25
Определить, сколько раз температура опускалась ниже нуля triston Помощь студентам 2 21.11.2008 16:19


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS