// PascalABC.NET 3.3, сборка 1555 от 21.10.2017 // Внимание! Если программа не работает, обновите версию!
begin var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println; var s:=a.IndexesOf(x->x mod 10=0); if s.Count=0 then Writeln('Нет элементов, оканчивающихся на 0') else begin Write('Номера элементов, оканчивающихся на 0: '); s.Select(i->i+1).Println end end.
Примеры n= 12 -41 46 29 -13 -43 -21 48 43 41 -48 -19 -44 Нет элементов, оканчивающихся на 0
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var s:=a.IndexesOf(x->x mod 10=0);
if s.Count=0 then Writeln('Нет элементов, оканчивающихся на 0')
else begin
Write('Номера элементов, оканчивающихся на 0: ');
s.Select(i->i+1).Println
end
end.
Примеры
n= 12
-41 46 29 -13 -43 -21 48 43 41 -48 -19 -44
Нет элементов, оканчивающихся на 0
n= 16
37 -48 39 32 -6 21 -48 34 6 12 -10 -15 40 -36 46 26
Номера элементов, оканчивающихся на 0: 11 13
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadArrInteger('Введите 35 целых чисел:',35);
a.OrderBy(x->x).Println.Reverse.Println
end.
Пример
Введите 35 целых чисел: 57 -31 -77 38 -22 39 -49 -85 22 46 -48 -5 46 -50 67 86 31 -90 -29 37 60 -89 31 -19 -31 -46 81 -56 -34 -33 -33 -59 -88 -25 83
-90 -89 -88 -85 -77 -59 -56 -50 -49 -48 -46 -34 -33 -33 -31 -31 -29 -25 -22 -19 -5 22 31 31 37 38 39 46 46 57 60 67 81 83 86
86 83 81 67 60 57 46 46 39 38 37 31 31 22 -5 -19 -22 -25 -29 -31 -31 -33 -33 -34 -46 -48 -49 -50 -56 -59 -77 -85 -88 -89 -90