Как можно вообщем назвать сканер, клавиатура, мышь,

проще, "средства ввода информации в компьютер".

1. var  s: string;   i: integer; begin  write('введите строку ');   readln(s);   for i: = 1 to length(s) do    if ((s[i]='о')or(s[i]='o'))and((i mod 2) = 0) then s[i]: ='и';   writeln(s);   end.     2.  var  s: string;   i,j: integer; begin  write('введите строку ');   readln(s);   s: =s+' ';   for i: = 1 to length(s) do    if (s[i]='в')and(s[i+1] = 'а') then begin s[i]: ='к'; for j: =(i+1) to (length(s)-1) do s[j]: =s[j+1]; end;   writeln(s);   end.  

// pascalabc.net 3.0, сборка 1160 от 05.02.2016 begin   var n: =readinteger('n=');   var a: =arrrandom(n,-100,100); a.println;   a: =a.where(x-> x> 0).concat(a.where(x-> x< =;   a.println;   writeln('количество положительных элементов: ',       a.where(x-> x> 0).count) end. тестовое решение: n= 15 -29 56 -40 -23 -26 -5 -69 37 -35 74 72 -63 -69 1 -93 56 37 74 72 1 -29 -40 -23 -26 -5 -69 -35 -63 -69 -93 количество положительных элементов: 5