Порты в/в на материнской плате форм-фактора ATX:
1 – Разъем PS/2 (мышь); 2 – Разъем PS/2 (клавиатура); 3 – Выход Ethernet; 4 – Разъемы USB2.0; 5 – Разъем последовательного порта; 6 – Разъем параллельного порта; 7 – Разъем VGA; 8 – Игровой порт / MIDI-port; 9 – Аудиопорты (слева направо: линейный выход, вход, микрофон); + Тут нету ещё HDMI и USB3.0 и USB3.2
Все эти разъемы для ввода или вывода.
На всех (почти) системных блоках порты одинаковые (идут они из мат. платы. Но на корпусе могут быть еще разъёмы не с мат платы а дополнительные, обычно N USB2.0/3.0 и разъёмы mini jack под наушники и микрофон.)
Если я не правильно понял вопрос скажите что именно надо в комментариях..
var i,s,p:integer; a:array [1..100] of integer;
begin
s:=0; p:=0;
writeln('Vvedite masiv a:');
for i:=1 to 10 do begin
write('a[',i,']=');
readln(a[i]);
end;
for i:=1 to 10 do begin
if a[i]>0 then s:=s+a[i];
end;
s:=s*2;
writeln('Udvoennaya suma polozhitelnih elementov=',s);
writeln('Indexi elementov kotorie bolshe prediduschego:');
writeln;
for i:=2 to 10 do begin
if a[i]>a[i-1] then write(i,', ');
end;
for i:=2 to 10 do begin
if ((a[i]>=0) and (a[i-1]>=0)) or ((a[i]<0) and (a[i-1]<0)) then p:=p+1;
end;
writeln;
if p>0 then writeln('Masiv imeet pari sosednih elementov s odnakovimi znakami') else writeln('Masiv ne imeet pari sosednih elementov s odnakovimi znakami');
readln(s);
end.
