a = str(input("введите строку - "))
b = list(a)
c = len(b)
if c % 2 == 1:
a1 = c // 2
print(b[a1])
else:
a1 = c // 2 - 1
a2 = c // 2
print(str(b[a1]) + ' , ' + str(b[a2]))
<span><span>program massiv6;
</span><span>02.<span>uses crt;
</span></span><span>03.<span>const N=10;
</span></span><span>04.<span>type x=array [1..<span>N] </span>of integer;
</span></span><span>05.<span>var a:x;
</span></span><span>06.<span>i:integer;
</span></span><span>07.<span>s:integer;
</span></span><span>08.begin
</span><span>09.clrscr;
</span><span>10.randomize;
</span><span>11.<span>for i:=1 to <span>N </span>do
</span></span><span>12.begin
</span><span>13.<span>a[i]:=-100+random(201);
</span></span><span>14.<span>write (A[i]:5)
</span></span><span>15.<span>end;
</span></span><span>16.<span>writeln;
</span></span><span>17.<span>s:=0;
</span></span><span>18.<span>for i:=1 to <span>N </span>do
</span></span><span>19.<span>if a[i]>0 then
</span></span><span>20.begin
</span><span>21.s:=s+a[i]
</span><span>22.<span>end;
</span></span><span>23.<span>writeln (‘Сумма положительных элементов = ’,s:5);
</span></span><span>24.readln
</span><span>25.<span>end<span>.</span></span></span></span>
В 17 веке( 1623 год) ▬ немецкий учёный Вильгельм Шиккард изобрёл " Считающие часы ".
Var a:array[1..100] of integer;
i,n,max,min:integer;
begin
writeln('Skolko elementov');
readln(n);
for i:=1 to n do begin write('a[',i,']='); read(a[i]); end;
max:=a[1]; min:=a[1];
for i:=1 to n do if a[i]>max then max:=a[i];
for i:=1 to n do if a[i]<min then min:=a[i];
writeln('Max - Min =' ,max-min);
<span>end.</span>
