1)Составте программуб которая заполняет массив а[1..10] случайными целыми числами в диапозоне от 1 до 10,затем преобразовывает его,увеличивая всеэлементы с четными значениями на 1. Если элементы с чётными значениями отсутствуют, оставить массив без изменений. 2) Составте программуб которая заполняет массив а[1..10] случайными целыми числами в диапозоне от 1 до 10,затем преобразовывает его,увеличивая все элементы с нечётными значениями в три раза,а элементы с чётными значениями заменяя на 0.
1) var a:array [1..10] of integer; i:integer; begin for i:=1 to 10 do read(a); for i:=1 to 10 do begin if a mod 2 = 0 then a:=a+1; writeln(a); end; end. 2) var a:array [1..10] of integer; i:integer; begin for i:=1 to 10 do read(a); for i:=1 to 10 do if (a+1) mod 2 = 0 then begin a:=a*3; writeln(a); end else begin if a mod 2 = 0 then writeln (0); end; end.
