Составить программу, которая формирует массив из 16 случ.чисел, принадлежащий промежутку [ 4; 42 ]. Четные числа заменяются на 2, а остальные на 3. Наэкран выводятся исходные и преобр.значения
var a:array[1..16]of integer; i:integer; begin for i:=1 to 16 do begin a:=random(39)+4; write(a,' '); end; writeln; for i:=1 to 16 do begin if a mod 2=0 then a:=2 else a:=3; write(a,' '); end; end.
