<u>PascalABC.NET 3.3.5, сборка 1650 от 01.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
ArrRandom(100,10,99).Println.Sorted.Println
end.
<u>Пример</u>
36 20 21 96 76 46 14 62 76 59 93 21 78 49 43 60 81 13 75 48 51 11 99 34 61 46 85 55 74 91 76 34 74 26 85 76 69 96 29 45 95 69 28 23 20 77 96 12 72 83 39 29 10 66 68 35 20 87 44 39 61 58 87 85 83 69 47 61 64 66 91 85 83 39 53 82 82 85 23 83 50 82 83 91 61 57 33 17 57 59 66 82 61 90 84 46 81 43 40 51
10 11 12 13 14 17 20 20 20 21 21 23 23 26 28 29 29 33 34 34 35 36 39 39 39 40 43 43 44 45 46 46 46 47 48 49 50 51 51 53 55 57 57 58 59 59 60 61 61 61 61 61 62 64 66 66 66 68 69 69 69 72 74 74 75 76 76 76 76 77 78 81 81 82 82 82 82 83 83 83 83 83 84 85 85 85 85 85 87 87 90 91 91 91 93 95 96 96 96 99
<em>// PascalABC.NET 3.2, сборка 1367 от 20.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(10,1,10); a.Println;
Writeln('Среднее элементов с четным значением: ',
a.Where(x->x.IsEven).Average);
Writeln('Среднее элементов с четным номером: ',
a.Where((x,i)->i.IsOdd).Average)
end.
<u>Пример</u>
9 1 4 8 2 1 10 7 8 5
Среднее элементов с четным значением: 6.4
Среднее элементов с четным номером: 4.4
13 - XIII
99 - XCIX
666 - DCLXVI
444 - CDXLIV
1692 - MDCXCII
1. PascalABC.NET
<em>// PascalABC.NET 3.2, сборка 1362 от 14.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var x:=ReadReal('Введите число:');
Writeln((x>=0) and (x<=2)?'Да':'Нет')
end.
<u>Пример</u>
Введите число: 1.17
Да
2. На этой же версии в стиле традиционного школьного паскаля
var
x:real;
begin
Write('Введите число: '); Read(x);
if (x>=0) and (x<=2) then Writeln('Да')
else Writeln('Нет')
end.