<span>1.Монитор
2.Клавиатура
3.Дисковод
</span>
Ответ на первую
var
i,m,b:integer;
a:array[1..15] of integer;
begin
for i:=1 to 15 do
a[i]:=random(100)+1;
repeat
for i:=1 to 14 do
if a[i]<a[i+1] then begin
b:=a[i];
a[i]:=a[i+1];
a[i+1]:=b;
end;
inc(m);
until m=14;
for i:=1 to 15 do
if a[i] mod 2 = 0 then
write(a[i],' ');
end.
..........................................