RoflerHelper var    arr: array[1..10] of integer;    i: integer;begin    randomize;    for i:=1 to 10 do    begin        arr[i] := random(100);        write(arr[i] + #9);    end;        writeln();        for i:=1 to 10 do    begin         if arr[i] mod 2 = 0 then         begin            arr[i] := 1        end;        write(arr[i] + #9);    end;end.