10 значений для массива входят с клавиатуры.Программа - вопрос №1606094110 от Данил22335 15.08.2022 15:55

Question

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

Данил22335 · Answer

var a:array[1..10] of integer;var i, t:integer;beginfor i:=1 to 10 doreadln(a[i]);for i:=3 to 8 doif (a[i]=a[i-2]) and (a[i] a[i+2]) and (a[i] mod 3=0) then begina[i]:= a[i]*2;end;for i :=1 to 10 dowrite(a[i], );end....