10 значений для массива входят с клавиатуры. Программа сравнивает элемент с последующим и предыдущим. Если элемент меньше предыдущего и больше последующего, а также элемент кратен 5, то данный элемент уменьшается на 10. В итоге программа выводит измененный массив
var x:integer;
a: array[0..9] of integer;
begin
{Ввод}
for var i1:=0 to 9 do
begin
write('Введите ',i1+1,' число = '); readln(a[i1]);
end;
{Обработка}
for var i2:=1 to 8 do
begin
if (a[i2-1]>a[i2]) and (a[i2]>a[i2+1]) and (a[i2] mod 5 = 0) then
a[i2]:= a[i2]-10;
end;
{Вывод}
writeln;
for var i3:=0 to 9 do
begin
writeln('Число ',i3+1,' = ',a[i3]);
end;
end.