Var arr: array[1..100] of real; n: integer; sum, op: real; i: integer; begin write('vvedite n '); readln(n); for i : = 1 to n do begin write('vvtdite ',i,'-oe chislo '); readln(arr[i]); end; sum : = 0; for i : = 1 to n do sum : = sum + arr[i]; writeln('summa= ', sum); end.
128 байт 128*8=1024 бита
1536 бит = 0,000000178 гигабайта
64 бит = 0,0000000074 гигабайт
16 килобайт = 131072 бит
128 байт 128*8=1024 бита
1536 бит = 0,1875 килобайт
64 бит = 0,0078125 килобайт