Нужна только Блок-схема. Найти в Х все стоящие рядом элементы с одинаковыми значениями и напечатать их номера. В примере номера равных смежных элементов 2,3 и 5,6.

1) a=int(input())

b=int(input())

c=int(input())

print((a+b+c)/3)

P.s Когда начнёшь выполнять команду, у тебя будет просто черный экран, вводишь первое число которое тебе нужно, нажимаешь на Enter, потом второе Enter, третье Enter.

2)a=('Иванов', 'Смирнов', 'Кузнецов', 'Попов', 'Васильев', 'Петров', 'Соколов', 'Михайлов', 'Новиков', 'Федоров')

a=sorted(a)

print(a)

3) a=('41', '23', '77', '72', '11', '45', '81', '74', '18', '50')

a=sorted(a)

print(a)

print(min(a))

print(max(a))

Я орну если ты из 208 школы

4) А вот это хз

Ошибки в программе:

Program primer - не хватает точки с запятой

Var a,b: integer;

Begin ; - не ошибка, необязательная точка с запятой

 ReadLn( a,b); - не ошибка, лишний пробел после скобки, здесь и дальше не хватает пробелов между аргументами функций, знаками

 s=a+b; - не хватает двоеточия в :=

 m:=a*b;

 d:=a:b; - переменная d не была описана; деление - это /

 WriteLn(s);

 WriteLn(m);

 WriteLn(d)

End - не хватает точки.

Исправленная программа:

Program primer;

Var a, b: integer;

  d: real;

Begin

  ReadLn(a, b);

  s := a + b;

  m := a * b;

  d := a / b;

  WriteLn(s);

  WriteLn(m);

  WriteLn(d)

End.