Лесенка C++ Вова стоит перед лесенкой из N ступеней. На каждой из ступеней написаны произвольные целые числа. Первым шагом Вова может перейти на первую ступень или, перепрыгнув через первую, сразу оказаться на второй. Так же он поступает и дальше, пока не достигнет N-ой ступени. Посчитаем сумму всех чисел, написанных на ступенях, через которые Вова.

Требуется написать программу, которая определит оптимальный маршрут Вовы, при котором, шагая, он получит наибольшую сумму.

Входные данные:
В первой строке содержится натуральное число N — количество ступеней лестницы (2≤N≤1000). Во второй строке через пробел заданы числа, написанные на ступенях лестницы, начиная с первой. Числа, написанные на ступенях, не превосходят по модулю 1000.

Выходные данные:
Выведите наибольшее значение суммы.

80 * 60 = 4800 символов на 1 странице

4800 * 450 = 2160000 символов в книге

обычно 1 символ кодируется 1 байтом информации, значит

в книге 2160000 байт, переведем их в мегабайты

2160000 : 1024 = 2109,375 кб (килобайт)

2109,375 : 1024 = 2,06 мб (мегабайт)

следовательно рукопись на 1 дискету не поместится, для нее необходимо 2 дискеты.

program xxx;

      var i : integer;

                a : array[1..15] of real;                   n : real;   begin    randomize;     for i: =1 to 15 do        a[i]: =random(20)-20;  

    writeln('исходный массив а: ');

    for i: =1 to 15 do

          write(a[i]);

    n: =a[1];

    a[1]: =a[15];

    a[15]: =n;

    writeln('полученный массив а: ');

    for i: =1 to 15 do

          write(a[i]);

    readln

end.

программа №4program str999; uses crt; var s: string; begin writeln('введіте фразу'); read(s); if (s='край озер') then writeln ('край озер лесов и рек'); if (s='я учусь в школе') then writeln ('я учусь в 10-м классе') end.

№5program p_1; uses crt; var s: string; begin writeln('введите фразу'); read(s); if (s='моя родина беларусь') then writeln ('беларусь моя родина'); if (s='люблю цябе мой родны кут') then writeln ('мой родны кут люблю цябе') end.  

program xxx;

      var i, x, s : integer;

begin

  write('введите число х=');

  readln(x);

  s: =0

  i: =1

  while i < =x do

      begin

          s: =s+i;

          i: =i+2

      end;

  write('сумма нечетных чисел ='; s);  

  readln

end.