с решением:
Программа заполняет одномерный массив из 10 целых чисел числами, считанными с клавиатуры. Определить среднее арифметическое всех чисел массива. Заменить элементы массива большие среднего арифметического на 1.

Объяснение:

a=int(input())

b=int(input())

c=int(input())

if a and b and c <10

print a+b+c -2

сумму чисел один,два,три,четыре,пять разделить на разность чисел 10 и 7.равно пяти.

var

i,s: integer;

begin

s: =0;

for i: =2 to 5 do

s: =s+i*i;

writeln(s);

end.