Всё просто
5 + 23 = 28
28 + 35 = 63
63 - 27 = 36
36 > 10? да ⇒ 36 + 5 = 41
41 / 2 без остатка? нет⇒ ничего
41 нечётное? да ⇒ 41 * 2 = 82
Вывод 82
конец
Надо смотреть монетор подальше от телевизора. Если смотреть близко можно испортить зрение.
Var a:array[1..10] of integer;
i,k:integer;
begin
writeln('vedite 10 chisel masiva');
k:=0;
for i:=1 to 10 do
read(a[i]);
for i:=1 to 10 do begin
if (a[i]=0) then k:=k+1;
end;
writeln('kolichestvo nuley ',k);
writeln('massiv v obratnom porydke');
for i:=10 downto 1 do
write(' ',a[i]);
end.