1) известны оценки ученика по 10 предметам. найдите среднюю оценку 2) дано натуральное число. определить сумму 5ти его последних цифр составить программу ,

Const   n = 10; var   i, s: integer;   a: array[1..n] of integer; begin   write('введите оценки через пробел ');   s : = 0;   for i : = 1 to n do   begin       read(a[i]);       s : = s + a[i]   end;   writeln('средний равен ', s / 10: 0: 2) end. тестовое решение: введите оценки через пробел 4 5 3 4 4 5 3 5 5 4 средний равен 4.20 var   k, n: longint;   i, m, s: integer; begin   write('введите натуральное число '); readln(n);   m : = n mod 100000;   k : = 10000;   for i : = 1 to 4 do   begin       s : = s + (m div k);       m: =m mod k;       k : = k div 10   end;   s: =s+m;   writeln('сумма последних пяти цифр числа равна ', s) end. тестовое решение: введите натуральное число 123456789 сумма последних пяти цифр числа равна 35

А1+а8=46 -->   a1+a1+7d=46        2a1+7d=46  ->   d-четное  ( т.к. 2а1-четное и 46-четное)числа натуральные, значит целые положительные. a1+3,5d=23      подберем d и а1.                                                                    s8=(2a1+7d)*8/2 пусть d=2 -> a1=16                            проверим                                 s8=(2*16+7*2)*4=184  - верно                   d=4  -> a1= 9                            проверим                                 s8=(2*9+7*4)*4=184 - верно                 d=6  -> a1= 2                            проверим                                    s8=(2*2+7*6)*4=184 - верно

N=0 #кол-во n1=0 n2=0 n3=0 n4=0 counter=1 ans=0 for i in range(n):     x=int(     if counter=1 and x> n1:         n1=x           counter=2     elif counter=2 and x> n2:         n2=x         counter=3     elif counter=3 and x> n3:         n3=x         counter=4     elif counter=4 and x> n4:         n4=x         counter=1 for i in [n1,n2,n3,n4]:     if i< 0:         ans+=1 print(ans)