<u>PascalABC.NET 3.3.5, сборка 1640 от 17.03.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
ArrRandom(15,-50,50).Println.Average.Println
end.
<u>Пример</u>
10 -46 20 -5 -23 -27 -16 26 42 -28 -24 -25 20 49 -27
-3.6
Begin
for var i:=1 to 21 do
if (i mod 2 = 1) then
print(i);
end.
begin
for var i:=60 downto 10 do
if (i mod 2 = 0) then
writeln(i)
end.
var a,b: integer;
begin
readln(a,b);
for var i:=b downto a do
print(i*i*i);
end.
Program qq;
var a,b,c, max:real;
begin
read(a,b,c);
if (a>b) then
begin
if (a>c) then max:=a
else max:=c;
end
else
begin
if (b>c) then max:=b
else max:=c;
end;
writeln(max);
end.