Дан массив размера N. Найти количество его промежутков моно-тонности (то есть участков, на которых его элементы возрастают или убывают).
Написать код для Лазурус оконное приложение, с использованием ListBox или Memo и соответственно кнопок. Код с пояснением.

#include "stdafx.h"

#include "conio.h"

#include "iostream"

using namespace std;

int main()

{

   setlocale( LC_ALL,"Russian");// включаем русскую раскладку

   cout << "Введите количество элементов массива" << endl;

   unsigned int lenthOfArray=0;//переменная длины массива

   cin >> lenthOfArray;//считываем длину массива

   //создаем Массив  

   int* Array = new int [lenthOfArray];

   int M=1;

   cout << "Вводите элементы массива:" << endl;

   for(int i=0;i<lenthOfArray;i++)

   {

       cin >> Array[i];//считываем массив

       current=up;

       if(i>1)

       if((Array[i]>=Array[i-1])&&(Array[i-1]<Array[i-2]))

       {

           M++;

       }

       else

       {

           if((Array[i]<=Array[i-1])&&(Array[i-1]>Array[i-2]))

               M++;

       }

   }

   cout << "Количество промежутков монотонности: " << M << endl;

   getch();

       delete [] Array;

   return 0;

}

Добавлено через 7 минут

C++Выделить код

1

current=up;

только это удали

Добавлено через 10 минут

C++Выделить код

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

#include "stdafx.h"

#include "conio.h"

#include "iostream"

using namespace std;

int main()

{

   setlocale( LC_ALL,"Russian");// включаем русскую раскладку

   cout << "Введите количество элементов массива" << endl;

   unsigned int lenthOfArray=0;//переменная длины массива

   cin >> lenthOfArray;//считываем длину массива

   //создаем Массив  

   int* Array = new int [lenthOfArray];

   int M=1;

   cout << "Вводите элементы массива:" << endl;

   for(int i=0;i<lenthOfArray;i++)

   {

       cin >> Array[i];//считываем массив

       if(i>1)

       if((Array[i]>Array[i-1])&&(Array[i-1]<Array[i-2]))

       {

           M++;

       }

       else

       {    

           if((Array[i]<Array[i-1])&&(Array[i-1]>Array[i-2]))

               M++;

           else

                       if((Array[i]==Array[i-1])&&(Array[i-1]!=Array[i-2]))

           M++;

       }

   }

   cout << "Количество промежутков монотонности: " << M << endl;

   getch();

       delete [] Array;

   return 0;

}

Объяснение:

var i,s: integer;

begin

writeln('summa ');

for i: =100 to 999 do

if i mod 17 =0 then s: =s+i else s: =s+0;

writeln(s)

end.

за тридевять земель или к чёрту на кулички