1)составте программуб которая заполняет массив а[1..10] случайными целыми числами в диапозоне от 1 до 10,затем преобразовывает его,увеличивая все элементы с четными значениями на 1. если элементы с чётными значениями отсутствуют, оставить массив без изменений. 2) составте программуб которая заполняет массив а[1..10] случайными целыми числами в диапозоне от 1 до 10,затем преобразовывает его,увеличивая все элементы с нечётными значениями в три раза,а элементы с чётными значениями заменяя на 0.

1)   var a: array [1..10] of integer; i: integer; beginfor i: =1 to 10 doread(a[i]); for i: =1 to 10 dobeginif a[i] mod 2 = 0 thena[i]: =a[i]+1; writeln(a[i]); end; end.

2) 

var a: array [1..10] of integer; i: integer; beginfor i: =1 to 10 doread(a[i]); for i: =1 to 10 doif (a[i]+1) mod 2 = 0 thenbegina[i]: =a[i]*3; writeln(a[i]); endelsebeginif a[i] mod 2 = 0 thenwriteln (0); end; end.

с = 4

Объяснение:

Решить в уме(не используя компилятор)

объяснение кода(Я думаю именно этого хочет преподаватель)

В цикле  проходимся по всем элементам массива кроме первого и последнего, в цикле условие, если текущий элемент массива равен 0 элементу,то мы должны увеличить переменную c на 1.Далее мы меняем текущий элемент массива с следующим(к примеру если у нас 3 элемент массива, то мы меняем его местами с 4 элементом()

(Исходный код)

A = [4, 3, 6, 8, 5, 8, 4, 2, 10, 9, 4]

c = 0

for i in range(1, 10):

  if A[i] == A[0]:  

     c += 1

       t = A[i + 1]

      A[i + 1] = A[i]  

    A[i] = t

print(c)