var
m : array [1..10] of Integer;
i : Integer;
begin
Writeln('Введите массив: ');
for i := 1 to 10 do
begin
Write('m[', i, '] = '); Readln(m[i]);
end;
Writeln('Отрицательные: ');
for i := 1 to 10 do
if m[i] < 0 then Writeln(m[i]);
end.
Ну алгоритм это последовательность действий=> решение..
№1
1) Переведем число 11111012
Для этого переведем его сначала в десятичную вот так:
11111012 = 1∙2⁶+1∙2⁵+1∙2⁴+1∙2³+1∙2²+0∙2¹+1∙2⁰ = 64+32+16+8+4+0+1 = 125₁₀
2) Переведем число AF16
Для этого переведем его сначала в десятичную вот так:
AF₁₆ = 10∙16¹+15∙16₀ = 160+15 = 175₁₀
3) Переведем число 368
Для этого переведем его сначала в десятичную вот так:
36₈ = 3∙8¹+6∙8₀ = 24+6 = 30₁₀
Получим (125+175):30=300:30=10.
№2
125₈ = 1∙8²+2∙8¹+5∙8⁰ = 64+16+5 = 85₁₀
101₂ = 1∙2²+0∙2¹+1∙2⁰ = 4+0+1 = 5₁₀
2A₁₆ = 2∙16¹+10∙16⁰ = 32+10 = 42₁₀
141₈ <span>= 1∙8</span>²+4∙8¹+1∙8⁰<span> = 64+32+1 = 97</span>₁₀
Получим 85+5*42-97=198
var
a,b,i,S:integer;
x: array[1..100] of integer;
begin
for i:=1 to 31 do
begin
x[i]:=random(1001);
write(x[i]:4);
end;
writeln;
readln(S);
writeln;
for i:=1 to 31 do
begin
if x[i]>S then
write(i:4);
end;
end.