Знайти чи належить два числа проміжок (3, 8)

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. // Конец программы

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. // Конец программы