Вспоминаем, что 1 Мб = 1024 Кб
16×1024 = 8X+4×1024
12×1024 = 8X ⇒ X = 12×1024/8 = 12×128 = 1536
//PascalABC.NET 3.1 сборка 1219
begin
var a := ArrRandomInteger(ReadInteger('x ='), -17, 17);
a.Println;
a.Transform(x -> -x);
a.Println;
end.
1) 0, 1, 2, 3, 4, 5, 6, 7, 8
2) 1, 2, 3, 4, 5, 6, 7, 8, 10, 11, 12, 13, 14, 15, 16, 17, 18, 20, 21
3) 68, <span>51.75
4) </span><span>300202
5) </span>76.63, <span>3E.CC
</span><span>111000110001.000001
</span><span>111001.011000101
</span>6) 100100
1110
открыть сайты с переводом сс не так уж и сложно
var a: array [1..10] of integer;
i: integer; ss: real; cc: byte;
begin
ss:=0;
cc:=0;
for i:=1 to 10 do begin
write('A[',i,'] = ');
readln(a[i]);
if a[i]>5 then begin
ss:=ss+a[i];
inc(cc);
end;
end;
writeln;
writeln('Среднее арифметическое = ',ss/cc);
end.