Самая высокая скорость передачи данных характерна для: 1) последовательного порта 2) паралельного порта 3) usb-порта

Юсб порт имеет самую высокую скорость

Var  a: array[1..1000] of longint;   n,i,k: longint; begin   readln(n);   for i: =1 to n do read(a[i]);   if odd(a[1]) then k: =1 else k: =2;   for i: =2 to n do   begin   if (odd(a[i]))and(k=1) then   begin     writeln('no');     halt;   end;   if (not odd(a[i]))and(k=2) then   begin     writeln('no');     halt;   end;   if k=1 then k: =2 else k: =1;   end;   writeln('yes'); end.

Const n = 99; var  i, j, t: integer;     flag: boolean;     mas: array[1..n]of integer; begin  randomize;     i : = 0;   while i < n do      begin      t : = random(1, 99);       flag : = true;     for j : = 1 to i do      if t = mas[j] then   begin        flag : = false; break      end;       if flag then begin      i : = i + 1; mas[i] : = t      end   end;     for i : = 1 to n do   write(mas[i], ' ') end.