Напишите программу которая заполняет массив из 20 элементов случайными числами на отрезке на отрезке [50;150] и находит в нём ми
begin
//Переменная p = 1,
//так как в процессе работы программы в ней
//накапливается произведение найденных чисел
p := 1;
write(‘Введите количество чисел ‘);
//В n — количество вводимых чисел
readln(n);
// цикл со счетчиком в котором вводим n чисел,
for i := 1 to n do
// Проверяем очередное значение i на кратность 3
// и выясняем, заканчивается ли это число на 1.
// Для этого используем целочисленное деление.
// mod — остаток от деления
// если i mod 3 = 0, значит i кратно 3
// если i mod 10 = 1, значит i оканчивается на 1
if (i mod 3 = 0) and (i mod 10 = 1) then
p := p * i; //умножим p на найденное число
//Вывод произведения найденных чисел
writeln(‘Искомое произведение ‘, p);
end.
Тестовое решение:
Введите количество чисел 81
Искомое произведение 86751
Уроки 21 — 22
§22. Алгоритмы обработки массивов
Практическая работа № 25 «Поиск максимального элемента»
Уровень A
Напишите программу, которая заполняет массив из 20 элементов случайными числами на отрезке [50; 150] и находит в нём минимальный и максимальный элементы и их номера.
Уровень B
Напишите программу, которая получает с клавиатуры значения элементов массива и выводит количество элементов, имеющих максимальное значение.
Уровень C
Напишите программу, которая заполняет массив из 20 элементов случайными числами на отрезке [100; 200] и находит в нём пару соседних элементов, сумма которых минимальна.
Уровень D
Напишите программу, которая заполняет массив из 20 элементов случайными числами на отрезке [–100; 100] и находит в каждой половине массива пару соседних элементов, сумма которых максимальна.
Практическая работа №25а. Поиск максимального элемента
Уровень A
Напишите программу, которая заполняет массив из 20 элементов случайными числами на отрезке [50; 150] и находит в нём минимальный из чётных элементов и его номер. Предполагается, что в массиве есть чётные элементы.
Уровень B
Напишите программу, которая заполняет массив из 20 элементов случайными числами на отрезке [100; 200] и находит в нём пару соседних элементов, сумма которых минимальна.
Уровень C
Напишите программу, которая заполняет массив из 20 элементов случайными числами на отрезке [–100; 100] и находит в каждой половине массива пару соседних элементов, сумма которых максимальна.
Уровень D
Напишите программу, которая заполняет массив из 20 элементов случайными трёхзначными числами и находит в нём элемент, у которого наибольшая сумма цифр, и его номер.
Следующая страница 
§22. Алгоритмы обработки массивов
Cкачать материалы урока
Напишите программу которая заполняет массив из 20 элементов случайными числами на отрезке 50 150 и
from random import randint
a = [randint(50, 150+1) for i in range(20)] # заполняем массив элементами от 50 до 150 включительно
mins = «»
maxs = «»
for i in range(len(a)):
if a[i] == max(a):
maxs += f» «
if a[i] == min(a): #if если вдруг мин и макс элементы одинаковы
mins += f» «
print(f»Минимальный элемент —
print(f»Максимальный элемент —