1. Курилы
2. Хорошего Колумб
3. Жи-ши пиши с буквой "и"
4.Пифагоровы "штаны" во все стороны равны
5. S= ab
6. Демон- М. Ю. Лермонтов
Х=187
x>0
да
у=2х
у=2*187
у=374
Надеюсь понятно, заранее сори за качество:)
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
var a:=ArrRandom(12,10,45); a.Println;
var p:=a.Where(x->x mod 5=0).Aggregate(1,(a,b)->a*b);
if p=1 then Writeln('Нет элементов, кратных 5')
else Writeln('Произведение кратных пяти элементов: ',p)
end.
<u><em>Тестовое решение:</em></u>
26 35 31 28 22 23 26 17 32 40 42 22
Произведение кратных пяти элементов: 1400
Эл. там только положительный заряд, пр. все зряды