составить программу, которая формирует массив из 10 случайных целых чисел, принадлежит промежутку [0; 12], выводит на экран исходный массив, затем преобразовывает его, увеличивая чётные значения элементов на 10, и выводит на экран преобразованный массив
Программа:
Pascal:
var
arr: array[1..10] of integer;
i: integer;
begin
for i := 1 to 10 do arr[i] := random(0,12);
writeln(arr);
for i := 1 to 10 do if arr[i] mod 2 = 0 then arr[i] := arr[i] + 10;
writeln(arr);
end.