#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.
