var
arr: array[1..20] of real;
s:real;
i:integer;
Begin
s:= 0;
write('Массив: ');
for i:=1 to 20 do begin
arr[i]:= random(10);
write(arr[i], ' ');
end;
for i:=1 to 20 do
if Abs(arr[i]) > 1 then
S:= S + arr[i];
writeln;
writeln('Сумма: ', s);
END.
Компьютер как система – это система, включающая подсистемы аппаратного обеспечения и информационных ресурсов. ПК - подсистемы системы «человек компьютер». Средства обеспечивающие взаимосвязь между объектами этой системы, называется интерфейсом.
Восьмеричная:
двоичное число разбиваем на триады с конца и переводим в десятичную
1000110010010 - 2
110 - 6
000 - 0
001 - 1
ответ - 1062 в восьмеричной
16 ричная:
разбиваем на тетрады
0010 - 2
0011 - 3
0010 - 2
ответ 232 в 16ричной
Десятичная:
1000110010<span> = 1∙2^</span>9+0∙2^8+0∙2^7+0∙2^6+1∙2^5+1∙2^4+0∙2^3+0∙2^2+1∙2^1+0∙2^0<span> = 512+0+0+0+32+16+0+0+2+0 = 562 в десятичной
</span>
чтобы перевести в любую другую систему можно взять десятичное число (в данном случае 562) и перевести в нужную систему (например в троичную). (ответ в приложении)