это может быть число 19, так как 1+9=10 и 1*9=9, 10+9=19, может быть 29, так как 2+9=11, а 2*9=18, 11+18=29, может быть 39, так как 3+9=12, а 3*9=27, 12+27=39, так же 49, так как 4+9=13, 4*9=36, 36+13=49, еще число 59, потому что 5+9=14, а 5*9=45, 45+14=59, может быть число 69, потому что 6+9=15, а 6*9=54, сложим 54+15 и получим 69, так же подходит число 79, так как 7+9=16, а 7*9=63, 16+63=79, число 89, потому что 8+9=17, а 8*9=72, складываем и получаем 72+17+89, число 99, потому что 9+9=18, а 9*9=81, 18+81=99
это может быть число 19, так как 1+9=10 и 1*9=9, 10+9=19, может быть 29, так как 2+9=11, а 2*9=18, 11+18=29, может быть 39, так как 3+9=12, а 3*9=27, 12+27=39, так же 49, так как 4+9=13, 4*9=36, 36+13=49, еще число 59, потому что 5+9=14, а 5*9=45, 45+14=59, может быть число 69, потому что 6+9=15, а 6*9=54, сложим 54+15 и получим 69, так же подходит число 79, так как 7+9=16, а 7*9=63, 16+63=79, число 89, потому что 8+9=17, а 8*9=72, складываем и получаем 72+17+89, число 99, потому что 9+9=18, а 9*9=81, 18+81=99
type
massiv = array [1..12] of integer;
var
i,n,summa : integer;
srednee : real;
A : massiv;
begin
clrscr;
write('Введите кол-во элементов : ');readln(n);
summa := 0 ;
for i:=1 to n do
begin
write('Введите ',i, ' элемент : '); readln(A[i]);
summa := summa + A[i];
end;
srednee := summa / n;
A[5] = srednee;
readln;
end.