Створіть програмний код в середовищі lazarus завдання 1. розрахунок оплати за електроенергію (ів) в україні з 0.1.0.3.2016 по 31.08.2016 за споживання електроенергії визначено такий порядок оплати залежно від спожитого обсягу: вартість 1 квт при споживанні електроенергії до 100 квт за місяць – 57 грн, від 100 квт до 600 квт – 90 грн, понад 600 квт – 156 грн. деяким споживачам надається пільговий обсяг безоплатного користування електроенергією, наприклад, 30 квт. якщо така пільга є, то її віднімають від спожитого обсягу, а далі розрахунок здійснюється за прийнятими тарифами. розробіть у вибраному середовищі програмування проект оплата за електроенергію, у якому користувач вносить у текстове поле обсяг спожитої електроенергії, та позначає за елементів іння (визначте самостійно) наявність пільги. після натиснення кнопки розрахувати отримує у вікні повідомлення розмір суми для оплати за електроенергію.

Задача 1

const max_size = 100;

var a: array[1..max_size] of real;

 i, n: integer;

 f: boolean;

begin

 read(n); {Во всех задачах считаю, что n <= max_size}

 for i := 1 to n do

   read(a[i]);

 f := true;

 for i := 2 to n do

   f := f and (a[i] > a[i - 1]);

 write(f)

end.

Пример ввода:

4

1 2 3 4

Пример вывода:

TRUE

Задача 2

const max_size = 100;

var a: array[1..max_size] of real;

 i, n, imax, imin: integer;

 temp: real;

begin

 read(n);

 for i := 1 to n do

   read(a[i]);

 imax := 1;

 imin := n;

 for i := 2 to n do

   if a[i] > a[imax] then

     imax := i;

 for i := n - 1 downto 1 do

   if a[i] < a[imin] then

     imin := i;

 temp := a[imax];

 a[imax] := a[imin];

 a[imin] := temp;

 for i := 1 to n do

   write(a[i], ' ');

end.

Пример ввода:

4

1 2 3 4

Пример вывода:

4 2 3 1

Задача 3

const max_size = 100;

var x: array[1..max_size] of integer;

 i, n, temp: integer;

begin

 read(n);

 for i := 1 to n do

   read(x[i]);

 for i := 1 to n div 2 do

 begin

   temp := x[i];

   x[i] := x[n - i + 1];

   x[n - i + 1] := temp;

 end;

 for i := 1 to n do

   write(x[i], ' ');

end.

Пример ввода:

4

1 2 3 4

Пример вывода:

4 3 2 1

Задача 4

const max_size = 100;

var x: array[1..max_size] of integer;

 i, n, sum: integer;

begin

 read(n);

 for i := 1 to n do

   read(x[i]);

 for i := 1 to n do

   if i = x[i] then

     sum := sum + x[i];

 write(sum)

end.

Пример ввода:

4

1 2 3 4

Пример вывода:

10

using System;

using System.Collections.Generic;

namespace Num

{

class Program

   {

       static void Main(string[] args)

       {

           Console.WriteLine("Введите количество элементов: ");

           int N = Int32.Parse(Console.ReadLine());

           Console.WriteLine("Введите элементы через enter: ");

           List<int> numbers = new List<int>();

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

           {

               int temp = Int32.Parse(Console.ReadLine());

               numbers.Add(temp);

           }

           Console.WriteLine("Элемены значения которых совпадают с их индексом:");

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

           {

               if (numbers[i] == i)

                   Console.Write(numbers[i] + " ");

           }

           Console.WriteLine();

           Console.ReadKey();

       }

   }

}