//PascalABC.NET
//Версия 3.3, сборка 1611
begin
var c:=ArrRandomReal(12,-10,70).Println();
write(c.Where(x->(x>5.3) and (x<40.7)).Aggregate(Real(1),(x,y)->x*y));
end.
А := Массив случайных чисел(их количество = N)
Б := A[0]
цикл i (от 1 до N):
если остаток от деления A[i] на 2 (вроде - mod в паскале) = 0 то:
если A[i]< Б то:
Б := A[i]
Вывод(Б)
<span>var</span>
a1<span>,</span> a2<span>,</span> a3<span>,</span> max<span>:</span><span>integer</span>;
<span>begin</span><span>write</span><span>(</span><span>'Введите три числа: '</span><span>)</span>;
<span> readln</span><span>(</span>a1<span>,</span> a2<span>,</span> a3<span>)</span>;
<span>if</span> a1 ><span>=</span> a2
<span>then</span> max <span>:=</span> a1
<span>else</span> max <span>:=</span> a2;
<span>if</span> a3 > max
<span>then</span> max <span>:=</span> a3;
<span>writeln</span><span>(</span><span>'Наибольшее из них: '</span><span>,</span> max<span>)</span>;
<span>readln</span>
<span>end</span>.
Варианты могут быть разные
1) берем черного кота
2) связываем лапы
3) мажем всю шкуру осветлителем
4) ждем положенное время, слушая непрерывное мявканье
5) смываем осветлитель с кота
6) размешиваем хну с кипятком
7) мажем всю шкуру кота
8) ждем положенное время, слушая непрерывное мявканье
9) смываем хну с кота
10) развязываем лапы
должен получиться рыжый кот
но лучше так не делать) гринпис не одобрит