Program Massive;
uses Crt;
const
M = 6;
var
D: array [1..M] of real;
i: integer;
sum: real;
indexMax: integer;
begin
ClrScr;
Randomize;
writeln ('Massive:');
indexMax := 1;
D[1] := 10;
D[1] := D[1] - Random(20);
writeln (D[1]);
for i:= 2 to M do
begin
D[i] := 10.0;
D[i] := D[i] - Random(20);
writeln (D[i]);
if (D[i] > D[indexMax]) then
begin
indexMax := i;
end;
end;
writeln ('indexMax = ', indexMax);
sum := 0;
for i:= indexMax + 1 to M do
if (D[i] < 0) then sum := sum + D[i];
writeln ('Sum = ', sum);
readln
end.
Function avg( i,j,k,m: float ): float;
begin
result := (i+j+k+m) / 4.0;
end;
1 - 0001
2 - 0010
3 - 0011
4 - 0100
5 - 0101
6 - 0110
7 - 0111
8 - 1000
9 - 1001
8 бит - значит в числе должно быть 8 нулей или единичек, если их не хватает, то можно добавить незначащие нули.
1) 5₁₀ = 00000101₂
2) 17₁₀ = 00010001₂ ( 16 =
![2^{4}](https://tex.z-dn.net/?f=+2%5E%7B4%7D+)
, в 2й сс это 1 и 4 нуля по степени, 17 = 16 + 1)
3) 64₁₀ = 01000000₂ ( 64 =
![2^{6}](https://tex.z-dn.net/?f=+2%5E%7B6%7D+)
, в 2й сс это 1 и 6 нулей)
4) 255₁₀ = 11111111₂
1тб=1024гб*1024мб*1024кб*1024б*8бит
Получится 8796093022208 бит