Question

10 значений для массива входят с клавиатуры. Программа сравнивает элемент с последующим и предыдущим. Если элемент меньше предыдущего и больше последующего, а также элемент кратен 5, то данный элемент уменьшается на 10. В итоге программа выводит измененный массив

Answer 1

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.