1)
uses crt;
const n=8;
var i:integer;
a:array[1..n] of integer;
begin
writeln('Input elements.');
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if a[i]<0 then
write(a[i],' ');
<span>end.
2)
uses crt;
const n=10;
var i,t:integer;
a:array[1..n] of integer;
begin
randomize;
t:=0;
write('Массив: ');
for i:=1 to n do
begin
a[i]:=random(10,1);
write(a[i],' ');
if a[i] mod 2=0 then
t:=t+1;
end;
writeln(#13#10,t);
<span>end.
3)
uses crt;
const n=10;
var i,sum,t:integer;
a:array[1..n] of integer;
begin
randomize;
sum:=0;
t:=0;
write('Массив: ');
for i:=1 to n do
begin
a[i]:=random(10,1);
write(a[i],' ');
if a[i] mod 2=0 then
sum:=sum+a[i]
else
t:=t+1;
end;
writeln(#13#10,sum,' ',t);
<span>end.
</span>4)
uses crt;
const n=10;
var i:integer;
a:array[1..n] of integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(10,1);
write(a[i],' ');
if a[i] mod 2=0 then
a[i]:=2*a[i]
else
a[i]:=3*a[i];
end;
write(#13#10);
for i:=1 to n do
write(a[i],' ');
<span>end.</span>
</span></span>
Если я всё ещё могу в логику, то 8-битное число есть 8-битное представление числа. Таким образом, двоичный код (любой длины) может нести только одну единицу информации. Но я полагаю, что требудется не это. Если требуется определить максимальный объём данных, который может быть представлен 8-биным числом, то это 2^8=256. Если же количество единичных бит, то 5. Если же имеется в виду предоставляемый объём данных, то это 8 бит.Вопрос очень некорректный.
Решим задание наоборот, при этом меняем и команды:
1. 28 - > 2;
2. 58 -> 4.
Команда 1: вычти 3;
Команда 2: квадратный корень из числа.
а)
28 - 3 = 25 (1).
5 (2).
5 - 3 = 2 (1).
Результат записываем снизу-вверх: 121.
б)
58 - 3 = 55 (1).
55 - 3 = 52 (1).
52 - 3 = 49 (1).
= 7 (2).
7 - 3 = 4 (1).
Результат: 12111.