Определить сумму оплаты за провоз багажа в зависимости от расстояния и веса. Если перевозка на расстояние меньше 1000 км, то тариф 3 руб. за кг веса, от 1000 до 2000 – 2, 5 руб./кг, больше 2000 км – 2 руб./кг. Если вес груза до 5 тонн, то 100 % от тарифа, если от 5 до 10 тонн, то 90 %, выше 10 тонн – 80% тарифа.

C#

using System;

namespace ArrayMax

{

class Program

{

static void Main(string[] args)

{

int n;

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

n = Convert.ToInt32(Console.ReadLine()); //вводим количество элементов Массива

Console.WriteLine();

int[] a = new int[n]; //выделяем память под массив

Random r = new Random();

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

{

a[i] = r.Next(0, 20); //заполняем массив рандомными числами от 0 до 20

}

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

{

Console.WriteLine(a[i]); //выводим массив

}

int max = a[0], maxIndex = 0;

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

{

if (max < a[i])

{

max = a[i];

maxIndex = i; //находим индекс максимального элемента

}

}

int count = 0; //счётчик для чисел между 1 и 12 до макс элемента

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

{

if (a[i] >= 1 && a[i] <= 12) //если элемент >= 1 и <= 12, прибавляем счётчик

count++;

}

Console.WriteLine();

Console.WriteLine(count); //выводим количество числе от 1 до 12 до макс эл массива

Console.ReadKey();

}

}

}

const    N = 25;var    arr: array[1..N, 1..2] of real;    firstNumber, secondNumber: real;    i, j: integer;begin    for i := 1 to N do        begin            Readln(firstNumber, secondNumber);                        Writeln();                        if (firstNumber + secondNumber > 100) then                begin                    j := j + 1;                                        arr[j, 1] := firstNumber;                    arr[j, 2] := secondNumber;                end;        end;        Writeln();        for i := 1 to j do        Writeln(arr[i, 1], ' | ', arr[i, 2]);end.