Вопрос к заданию: Рассмотрите рисунок, какие устройства можно подключить к компьютору через порты. :( не знаю ответ​

В рубль видеон кондер волд декабрьде кто ал дедн ет коктейл келу калдн калд келу ңіз едқ ғой ең келе едн пик елдерден көшелер көшеден герб ертеде не еркелетп адемилеп айшагүл абзалға алдндаг ңдар клетка еду етш не кабесуду калд көктайғақ келу ңдер ұқтамаим ғойд қателесп щаршап щебень шашмды газмұнайлып омоним адеб август витаминка кортошка ңң

Объяснение:

Вигазьо уйкта калд кайрат кугидель калд кездестіріп видно пайдам үндеми ғам ұста

компьютерная мышь, клавиатура, монитор , интернет кабель , микрофон , динамики , устройства с usb интерфейсом

два компьютера между собой

Задача 1: 1

Задача 2:

begin

s:=0; k:=1;

while k < 11 do  begin

s:=s+k; k:=k+1;

end;

write(s);

end.

Задача 3:

11 10 9 8 7 7 10 11 12 13 14

Задача 4:

const N = 20;

const MAX = 100;

const MIN = -100;

var A: array [1..N] of integer;

var i,s: integer;

begin

randomize();

s:=-1;

writeln('Исходный массив: ');

for i:=1 to N do

 begin

 A[i]:=random(MAX-MIN+1)+MIN;

 if (A[i]>0) and (A[i] mod 5 = 0) then

   begin

   if (s=-1) then s:=A[i]

   else if (A[i]<s) then s:=A[i];

   end;

 write(A[i],' ');

 end;

writeln();

if (s<>-1) then writeln('Минимальное значение среди положительных',

' элементов массива кратных 5: ',s)

else writeln('Не найдено');

end.

Program chik;
const n=15;
var P:array[1..15]of real;
i:integer;
s:real;
begin
s:=0;
for i:=1 to n do
begin
read(p[i]);
if(i mod 2=0)and(p[i]<0)then s:=s+p[i];
end;
writeln(s);
end.
2)
program gt;
uses crt,graphabc;
const n=7;
var mac1,mac2,mac3:array[1..15]of real;
i,k1,k2:integer;
begin
k1:=0;k2:=0;
for i:=1 to n do
begin
read(mac1[i]);
if(mac1[i]>0)then begin
Inc(k1);
mac2[k1]:=mac1[i];
end;
if(mac1[i]<0)then begin
Inc(k2);
mac3[k2]:=mac1[i];
end;
end;
for i:=1 to n do
write(mac1[i],' ');
writeln;
for i:=1 to k1 do
write(mac2[i],' ');
writeln;
for i:=1 to k2 do
write(mac3[i],' ');
end.