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.