10 значений для массива входят с клавиатуры.Программа сравнивает элемент с последующим и предыдущим через один.Если элемент равен предыдущему через один и больше последующего через один,а также элемент кратен 3,то данный элемент увеличивается в 2 раза.В итоге программа выводит изменённый массив.Паскаль
var a:array[1..10] of integer;
var i, t:integer;
begin
for i:=1 to 10 do
readln(a[i]);
for i:=3 to 8 do
if (a[i]=a[i-2]) and (a[i]>a[i+2]) and (a[i] mod 3=0) then
begin
a[i]:= a[i]*2;
end;
for i :=1 to 10 do
write(a[i],' ');
end.