Что за язык?
ну создаешь переменную (допустим min), в неё заносишь значение первого элемента (элемента номер 0),
создаешь цикл и перебираешь со второго элемента (номер 1) до конца массива,
в ходе перебора сравниваешь значение каждого элемента массива с переменной (min), если значение элемента меньше, то присваиваешь переменной (min) значение текущего элемента в цикле...
+ Если нужно ещё найти порядковый номер наименьшего элемента в массиве, можно параллельно вести другую переменную (minnum) например, и каждый раз когда находится элемент меньший чем min присваивать minnum - номер текущего элемента в цикле
Var a: integer;
begin
readln(a);
if (a>5) then a:=a*2;
writeln(a);
readln();
end.
Много воды, но о большой скорости никто не говорил, верно?)
A - 20 минут. Это является правилом безопасности
Переберём все числа в диапазоне [10; 100). Сохраним наше текущее число в отдельную переменную. Пока копия числа больше нуля, будем умножать переменную произведения этого числа на последнюю цифру числа (% 10). Потом удалять последнюю цифру у копии числа (// 10).
<h3>Код</h3>
for i in range(10, 100):
i1 = i
pr = 1
while i1 > 0:
pr = pr * (i1 % 10)
i1 = i1 // 10
if i == pr*2:
print(i)