<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(ReadInteger('n='), -99, 99);
a.Println;
var k := ReadInteger('Введите число для отбора по кратности:');
var b := a.Where(t -> (t <> 0) and (t mod k = 0)).Reverse.ToArray;
b.Println
end.
<h3>Пример</h3>
n= 21
-32 50 45 -21 -28 7 -24 60 42 -91 -51 47 -72 82 14 7 40 51 -82 92 -85
Введите число для отбора по кратности: 3
51 -72 -51 42 60 -24 -21 45
<em>// PascalABC.NET 3.2, сборка 1488 от 21.06.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(31,16,27); a.Println;
var s:=a.Select((x,i)->(x,i)).OrderBy(x->x[0]).Select(x->x[1]+1);
Write('Семь самых холодных дней: '); s.Take(7).Println;
Write('Семь самых жарких дней: '); s.TakeLast(7).Println
end.
<u>Пример</u>
17 17 25 27 22 26 22 23 26 26 25 16 21 25 22 17 20 19 16 19 21 22 19 16 21 27 22 24 22 24 22
Семь самых холодных дней: 12 19 24 1 2 16 18
Семь самых жарких дней: 11 14 6 9 10 4 26
Ақпаратнама; информатика (ғылыми ақпараттың қызметтері мен құрылымын, оларды жасау, қорландыру, түрлендіру және жеткізу әдістерін зерттейтін білім саласы)