Question

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

Answer 1

Ответ:

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.