<h3>PascalABC.NET 3.4.2, сборка 1847 от 28.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(ReadInteger('n='), -50, 50);
a.Println;
a.Select(t -> Abs(t)).Max.Println
end.
<h2>n= 13</h2><h2>24 -14 9 -6 43 -4 15 -46 40 -14 -32 45 32</h2><h2>46 </h2>
Ответ:
for( var i=0;i<array.length; i++)
{
if (array[i] > 10) array[i]=Math.Sqrt(array[i]);
if (i % 2=0) array[i]=Math.Abs(array[i]);
}
Program exs;
var a, i, sum : integer;
begin
sum:= 0;
readln(a); {Считывание числа}
for i:= 1 to 4 do begin
sum:=sum + (a mod 10); {Находим остаток от деления на 10}
a:=a div 10; {Выкидываем найденную цифру из числа}
end;
writeln(sum);
end.
2048 = 2^11
1024 = 2^10
1 Мбайт = 1024 Кбайт
1 Кбайт = 1024 байт
1 байт = 8 бит
2048 Мбайт = 2^11 Мбайт = 2^21 Кбайт = 2^31 байт = 2^34 бит
Ответ: 34