// счет разрядов от нуля справа налево: ХХХ5ХХ2ХХ
var
n:longint;
a,b,k,d:integer;
begin
Write('Введите натуральное число длиной 6-9 цифр: ');
Read(n);
k:=0;
while n>0 do begin
d:=n mod 10;
if k=2 then a:=d
else
if k=5 then b:=d;
Inc(k);
n:=n div 10
end;
Writeln('Ср. арифм. разрядов 2 и 5 равно ',(a+b)/2)
end.
Пример
Введите натуральное число длиной 6-9 цифр: 123456789
Ср. арифм. разрядов 2 и 5 равно 5.5
Наибольшее двузначное число, произведение цифр равно 63
<u><em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em></u>
<u><em>// Внимание! Если программа не работает, обновите версию!</em></u>
begin
var a:=ArrRandom(12,-12,12); a.Println;
a:=a[1:6]+a[:1]+a[7:]+a[6:7]; a.Println
end.
<u>Пример</u>
3 12 5 -2 -5 4 0 1 -8 -3 -4 -12
12 5 -2 -5 4 3 1 -8 -3 -4 -12 0
Объяснение:
from random import randint, random
p=[]
a=randint(10,50)
p.append(a)
print(p)
#для числа запись random.randint не подходит...
#тебе тут надо спомощью метода .append добавить в конец списка число