begin
var mas := ArrRandomInteger(10, 1, 30);
mas.Println;
var composition := 1;
for var i := 0 to mas.Length - 1 do
begin
if (mas[i] mod 5 = 0) then
begin
composition := composition * mas[i];
end;
end;
write(composition);
end.
Объяснение:
begin // Начало программы
var mas := ArrRandomInteger(10, 1, 30); // Объявление массива размером 10 + заполнение массива случайными значениями из диапазона [1, 30].
mas.Println; // Вывод массива
var composition := 1; // Переменная, хранящая произведение чисел, которые делятся на 5 без остатка
for var i := 0 to mas.Length - 1 do // Идём от нуля до размера массива - 1
begin // Начало цикла
if (mas[i] mod 5 = 0) then // Если значение массива с индексом i делится на 5 без остатка
begin // Начало условного оператора
composition := composition * mas[i]; // Умножаем произведение на значение массива
end; // Конец условного оператора
end; // Конец цикла
write(composition); // Выводим ответ
end. // Конец программы
begin
var size := readinteger;
var arr := ArrRandomInteger(size, -100, 100);
arr.Println;
var quantity := 0;
for var i := 0 to arr.Length - 1 do
begin
if (arr[i] > 25) and (arr[i] < 99) and (arr[i] mod 2 <> 0) then
begin
inc(quantity);
end;
end;
write(quantity);
end.
Объяснение:
begin // Начало программы
var size := readinteger; // Переменная, хранящая размер массива, считывается с клавиатуры
var arr := ArrRandomInteger(size, -100, 100); // Объявление массива размером size + заполнение массива случайными значениями из диапазона [-100, 100].
arr.Println; // Вывод массива
var quantity := 0; // Переменная, хранящая количество элементов, равна 0
for var i := 0 to arr.Length - 1 do // Идём от нуля до размера массива - 1
begin // Начало цикла
if (arr[i] > 25) and (arr[i] < 99) and (arr[i] mod 2 <> 0) then // Если значение массива с индексом i > 25 И < 99 И нечетное, тогда
begin // Начало условного оператора
begin // Начало условного оператора
inc(quantity); // Увеличиваем значение переменной quantity на единицу
end; // Конец условного оператора
end; // Конец цикла
write(quantity); // Выводим ответ
end. // Конец программы