n = int(input()) # присваиваем n - кол-во чисел
z = 0 # z - сумма всех чисел (изначально она = 0)
a = [] # a - массив состоящий из n чисел
for i in range(n): # делаем цикл для заполнения a
a.append(int(input())) # заполняем a
z = z+a[i] # так же считаем сумму всех чисел из a
x = z / len(a) # x - ср.ар. n чисел
l =abs(a[0]-x) # создаем n для того чтобы найти самое близкое к x число
m = 1 # создаем m для того чтобы найти номер самого близкого числа
for i in range(1,len(a)): # делаем цикл для нахождения m и n
if abs(a[i]-x)<l: # если число ближе к x чем число под номером n
l = abs(a[i]-x) # то присваиваем l - это число
m = i + 1 # а m - номер этого числа
print(m) # выводим номер числа
Объяснение:
S K
1 0 (s:=1 => s теперь равно 1; k:=0 => k теперь равно 0)
1 4 (входим в цикл while. По его условию, пока k меньше 13, будем повторять две следующие строчки. S получает значение s+2*k. Сейчас k=0, а s=1, поэтому s=1+2*0=1. k получает значение k+4. Теперь k=0+4=4. 4<13, поэтому входим в цикл ещё раз)
9 8 (Теперь s=1(предыдущее s)+2*4=9. k=k+4=4+4=8. 8<13 => входим в цикл ещё раз)
25 12 (s=s+2*k=9+2*8=25; k=k+4=8+4=12; 12<13 => входим в цикл ещё раз)
49 16 (s=s+2*k=25+2*12=49; k=12+4=16; 16>13 => выходим из цикла)
——————————————
Цикл завершён, а т. к. далее нет строчек, содержащих «s:=» или «k:=», значения s и k больше не меняются.
строчка «write(s+k)» означает выведение на экран суммы s и k. Значит, на экран будет выведена сумма чисел 49 и 16 (последних s и k) — 65.
<конец программы>.
var a:array [1..100] of integer;
i,n,s:integer;
Begin
randomize;
n:=12;
for i:= 1 to n do begin
a[i]:=random(n*10)- 10*n div 2 ;
write(a[i]:4);
if i mod 10=0 then writeln;
end;
for i:= 1 to n do begin
if i mod 2 =0 then
s:=s+a[i];
end;
writeln(s);
End.