1)Напишите программу, которая по коду города и длительности переговоров вычисляет их стоимость и результат выводит на экран: Екатеринбург-код 343, 15 руб/мин; Омск-код 381, 18 руб/мин; Воронеж-код 473, 13 руб/мин; Ярославль-код 485, 11руб/мин

#include <iostream>

#include <cstdlib>

#include <ctime>

#include <conio.h>

using namespace std;

int main()

{

srand(time(0));//time(0) вернет текущее кол-во секунд,побуждая функцию srand() передавать

               //разное значение sedd для функции rand() при каждом запуске программы.

int arr[10] = {}; // Создали массив из 10 элементов

for (int i = 0; i < 10; i++)// цикл для заполнения массива

{

 arr[i] = 1 + (rand() % 20);//делаем чтобы значения были до 20

 if ((arr[i] % 2) == 0) // проверяем на четность

 {

  cout << arr[i] << endl;//если четно ,то выводим на экран

 }

}

_getch(); // пауза

return 0;

}

Объяснение:

===== PascalABC.NET =====

begin

 Println('Задание 1');

 var B := ArrRandom(15, -40, 20);

 B.Println;

 var k := ReadInteger('Введите заменяющее число:');

 B.Transform(p -> p.IsOdd and (p < 0) ? k : p);

 B.Println;

 Println('Задание 2');

 var M := ArrRandom(13, -99, 99);

 M.Println;

 var i := M.FindLastIndex(p -> p.IsEven);

 if i = -1 then

   Println('В массиве нет четных элементов')

 else

 begin  

   M := M[:i] + Arr(100) + M[i:];

   M.Println

 end;

 Println('Задание 3');

 var A := ReadArrInteger('10 элементов массива А:', 10);

 var BB := ReadArrInteger('10 элементов массива B:', 10);

 var C := A.Zip(BB, (p, q) -> p + q);

 C.Println

end.