Var mass:array[1..20] of integer; var i:integer; var sum: integer; begin Randomize; sum:=0; for i:=1 to 20 do begin mass[i]:=Random (46) - 25; write(mass[i],' '); end;
for i:=1 to 20 do if (i mod 2 = 0) then sum+=mass[i]; writeln('Summa chetnih elementov: ', sum);
var kolTwo:integer; kolTwo:=0; for i:=1 to 20 do if (mass[i] = 2) then kolTwo+=1; writeln('Elementov = 2 - ', kolTwo);
for i:=1 to 20 do if (mass[i] > 0) then mass[i] := 0; writeln('Noviy massiv '); for i:=1 to 20 do write(mass[i],' '); end.
Вес разрядов справа от точки равен основанию системы в степени -1, -2, -3 ... итд (то есть 2^(-n), где n- номер разряда считая от первого справа от запятой). Напишу веса разрядов начиная от первого справа от запятой, и далее, по порядку: Двоичная система: 2^(-1)=1/2, 2^(-2)=1/4, 2^(-3)=1/8, 2^(-4)=1/16 ... итд Восьмеричная: 8^(-1)=1/8, 8^(-2)=1/64, 8^(-3)=1/512 ... итд Шестнадцатеричная: 16^(-1)=1/16, 16^(-2)=1/256, 16^(-3)=1/4096 ... итд
Вес разрядов слева от точки равен основанию системы в степени 0, 1, 2, 3 ... итд (то есть 2^(n-1), где n- номер разряда считая от первого слева от запятой). Напишу веса разрядов начиная от первого слева от запятой, и далее, по порядку: Двоичная система: 2^0=1, 2^1=2, 2^2=4, 2^3=8 ... итд Восьмеричная: 8^0=1, 8^1=8, 8^2=64 ... итд Шестнадцатеричная: 16^0=1, 16^1=16, 16^2=256 ... итд
1.б
2.нет
Объяснение:
x=1
x=3
Они ничего не делают