Превратите одно слово в другое всякий раз заменяя по одной букве так чтобы новое слово было существительным в именительном падеже пример слоН - слоГ Используйте подсказки

1)
program Ok;
const n = 10;
var
A:array[1..n] of real;
sum:real;
i:integer;
begin
sum:=0;
for i:=1 to n do
begin
read(A[i]);
sum:=sum+A[i];
end;
sum:=sum/n;
for i:=1 to n do
begin
if(A[i]<sum) then
writeln(A[i]);
end;
end.
2)
program Ok;
const n = 10;
varA:array[1..n] of real;
sum:real;
i,k:integer;
begin
sum:=0;
for i:=1 to n do
begin
read(A[i]);
if (i mod 2 = 1) then
sum:=sum+A[i];
if (i mod 2 = 1) then
k:=k+1;
end;
sum:=sum/k;
write(sum);
end.

Последние , слово деда

Мой ответ IPS , незнаю как ваше мнение но это моё мнение !!!

6BC=6*16²+11*16+12=1536+176+12=1724