# Код на ruby 2.2.3p173
def zadanie(n)
for i in 1..n
p i.to_f / 2
end
return ""
end
# Примеры применения
p zadanie(11)
<em>// PascalABC.NET 3.3, сборка 1625 от 17.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function amax(a:array of integer):integer;
begin
Result:=a.Max
end;
begin
var x:=ArrRandom(ReadInteger('n='),-50,50); x.Println;
Writeln('Максимальный элемент равен ',amax(x))
end.
<u>Пример</u>
n= 15
-21 9 27 -46 -17 -21 22 50 -50 -47 -20 43 -23 43 -46
Максимальный элемент равен 50
Пямять в ГБ 2 перевиди в мг