var
a:array[1..10]of extended;
i,otr,m,pol:integer;
begin
for i:=1 to 10 do
begin
read(a[i]);
if a[i]<0 then otr:=a[i]+otr;
if a[i]>0 then pol:=pol+1;
end;
m:=(pol/otr);
write(m);
end.
Нужно соединить 7 и 8, или 6 и 10, или 9 и 10.
Или непрямые ребра: 6 и 7, или 6 и 8, или 7 и 9, или 7 и 10, или 8 и 9.
Длина цикла во всех трех случаях равна 7.
1)принтер
2)графопостроитель
3)процессор
4)принтер
5)жесткий диск
6)системный блок
7)карта расширения
8)<span>Delete
9)цветной принтер</span>
Извини пожалуйста я не знаю