<em>// PascalABC.NET 3.2, сборка 1437 от 03.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadlnInteger;
Writeln(ReadSeqInteger(n).Where(i->abs(i) mod 10=2).Max)
end.
<u>Пример</u>
18
-11 12 -4 -35 -32 -16 -23 -22 31 -10 2 -29 47 49 42 47 31 -44
42
Я думаю, что не существует. Звезды называются людьми для удобства. И хоть звезд во вселенной миллиарды, но людьми наблюдается не очень много звезд.
Если звезды называются для удобства человека, то наличие двух звезд с одним и тем же именем может вызвать путаницу.
//PascalABC.NET версия 3.4.0.1677 от 17.06.18
//Если программа не запускается, то обновите версию
begin
var a := ArrRandomInteger(Random(10, 100), 5, 35);
Println(a);
Println('Кол-во запрашиваемых элементов массива = ',a.Count(x -> (x mod 5 = 0) and (x mod 2 = 0)));
end.
Объяснение:
Б сказали решить, его и решил..........